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1.0 INTRODUCTION 

1.1 ABSTRACT 

THE RM80 DISKLESS DIAGNOSTIC IS A STAND ALONE PROGRAM WHICH USES 
FUNCTIONAL AND DIAGNOSTIC MEANS TO VERIFY THE OPERABILITY OF THE RM80 
DISK SUBSYSTEM EXCLUDING AND INDEPENDENTLY OF THE STORAGE MODULE 
DRIVE. IN PARTICULAR, THE PROGRAM SERVES THE FOLLOWING PURPOSES: 

TO DETECT ERRORS AND FAULTS IN THE RM80 MASSBUS ADAPTER; 

TO RESOLVE HARDWARE FAILURES IN RM80 TO A FIELD REPLACEABLE MODULE 
OR MODULES. 


1.2 UNIT UNDER TEST 

THE UNIT UNDER TEST (UUT) IS THE RM80 DISK SUBSYSTEM, EXCLUDING 
THE STORAGE MODULE DISK DRIVE AND THE MASSBUS CONTROLLER. 


2.0 OPERATING REQUIREMENTS 

2.1 HARDWARE REQUIREMENTS 
THE FOLLOWING MINIMUM HARDWARE CONFIGURATION, 


OPERATIONAL, 

DIAGNOSTIC: 


IS REQUIRED TO LOAD AND EXECUTE THE 


PDP-11/70 PROCESSOR 
12K MEMORY 

KW11-L OR KW11-P CLOCK 

PROGRAM LOADING DEVICE 

TERMINAL 

RH70 CONTROLLER 

1 TO 8 RM80 DISK DRIVES 


ASSUMED TO BE 
RM80 DISKLESS 


2.2 MEDIA REQUIREMENTS 
NONE 


2.3 PREREQUISITE PROGRAMS 

RM80 DISKLESS TEST, PART 1 


3.0 OPERATING PROCEDURE 

3.1 LOADING 
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THE PROGRAM MAY BE LOADED BY EITHER OF THE FOLLOWING MEDIA: 

.PAPER TAPE, USING THE STANDARD PAPER TAPE LOADING PROCEDURE. 
.XXDP MEDIA, USING THE APPROPRIATE LOADING DEVICE. 


3.2 SWITCH OPTIONS 

THE FOLLOWING SWITCH OPTIONS ARE INVOKED WHEN THE APPROPRIATE 
SWITCH IS ON. 

SW15 HALT ON ERROR 

SW14 LOOP ON TEST (CURRENTLY BEING EXECUTED) 

SW13 INHIBIT ERROR TYPEOUTS 

SW12 UNUSED 

SW11 INHIBIT TEST ITERATIONS 

SW10 BELL ON ERROR 

SW09 LOOP ON ERROR 

SW08 LOOr* ON TEST IN SW07-00 

THE LOW ORDER 8 SWITCHES ARE USED IN CONJUNCTION WITH SW08 TO SPECIFY 
THE OCTAL NUMBER OF THE TEST WHICH THE PROGRAM WILL LOOP ON. 


3.3 STARTING 

THE PROGRAM MAY BE STARTED AT LOCATION 200 OR 204. STARTING AT 
200 WILL BE THE NORMAL STARTING ADDRESS. STARTING AT 204 WILL ENABLE 
THE RH/RM BASE ADDRESS TO BE CHANGED. I' RUNNING IN A STAND-ALONE 
ENVIRONMENT, THE PROGRAM USES CONSOLE DIALOGUE TO ALLOW THE OPERATOR 
TO CONTROL TEST CONDITIONS. 


3.4 HALTING 

THE PROGRAM CAN BE HALTED BY TYPING CONTROL C FROM THE CONSOLE. 


3.5 RESTARTING 

THE PROGRAM CAN BE RESTARTED AT ADDRESS 200 OR 204. (SEE SECTION 3.3) 


4.0 OPERATOR INTERFACE 

4.1 PROGRAM ID 

THE PROGRAM TYPES ITS NAME AND MAINDEC NUMBER THE FIRST TIME IT 
IS STARTED AFTER BEING LOADED. 
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4.2 CONSOLE DIAL06UE 

WHEN THE PROGRAM IS RUNNING IN STAND ALONE MODE. IT ENTERS A 
CONSOLE DIALOGUE SEQNENCE AFTER TYPING THE PROGRAM I.D.. 

THE FIRST QUESTION TYPED OUT IS: "TYPE HELP TEXT (L) N ?". 

IF THE OPERATOR RESPONDS WITH A "Y" THE PROGRAM WILL TYPE A BRIEF 
HELP MESSAGE WHICH WILL LIST SWITCH OPTIONS, ETC. ANY OTHER RESPONSE 
TO THE QUESTION IS CONSIDERED A 'N" AND NO HELP TEXT IS TYPED. THIS 
QUESTION IS ONLY ASKED ON THE INITIAL PROGRAM START AND NOT ON 
SUBSEQUENT START-UP’S. 

ON THE PROGRAM INITIAL START AND WHEN RESTARTING AT LOCATION 204. 
THE OPERATOR MAY CHANGE THE RH/RM BASE ADDRESSES WITH THE FOLLOWING 
DIALOGUE. 


EXAMPLE 1 

RMCS1 =176700 <CR> 
RMVEC =000254 <CR> 

EXAMPLE 2 


;N0 CHANGE IN ADDRESS 
;N0 CHANGE IN ADDRESS 


RMCS1 =176700 177200<CR> .‘CHANGE BASE ADDRESS TO 177200 
RHVEC =000254 260<CR> .‘CHANGE VECTOR ADDRESS TO 260 

ON THE INITIAL START, THE NEXT QUESTION TYPED IS, ’TYPE "A" TO 
TEST ALL DRIVES, OR TYPE DRIVE NUMBER(S) AND TERMINATE INPUT WITH 
A CARRIAGE RETURN’. THEN, ’DRIVE(S):’ IS TYPED AND WAITS FOR THE 
OPERATOR TO TYPE AN "A* TO TEST ALL POSSIBLE DRIVES OR TYPE ANY 
STRING OF DRIVE NUNBER(S) TO BE TESTED AND TERMINATE THE INPUT WITH A 
"CARRIAGE RETURN". NO COMMAS OR ANY OTHER SEPARATORS ARE NEEDED WHEN 
ENTERING THE DRIVE NUMBERS AS A STRING. THE PROGRAM ENTERS THE COMMA 
SEPARTOR AUTOMATICALLY AFTER TYPING EACH NUMBER. ON ALL SUBSEQUENT 
STARTS, ONLY THE ’DRIVE(S):’ PROMPT IS TYPED. 

THE DIAGNOSTIC THEN INITIALIZES AND REPORTS THE STATUS OF THE 
DRIVES WHICH WHERE PREVIOUSLY SPECIFIED FOR TESTING. THE FOLLOWING 
IS AN EXAMPLE PRINTOUT: 

•UNIT STATUS: 

0 ONLINE RM80 

1 LOAD DEVICE 

2 OFFLINE RM80 

3 NOT PRESENT 

4 NOT PRESENT 

5 NOT AN RM80 

6 NOT PRESENT 

7 NOT PRESENT’ 

THE ABOVE UNIT STATUS SHOWS THAT DRIVE 012 WILL BE TESTED, WHILE DRIVES 

1,83-7 WILL NOT BE TESTED. 

THE DIAGNOSTIC THEN TYPES THE FOLLOWING MESSAGE, BASED ON THE 
STATUS OF THE DRIVE: 

’DRIVE(S) TO BE TESTED, 0, 2’ 
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IF NO DRIVES ARE AVAILABLE FOR TESTING, THE FOLLOWING MESSAGE WILL BE 
TYPED TO THE OPERATOR: 

'DRIVE (S) TO BE TESTED, NONE' 

THE PROGRAM WILL THEN, EITHER START TESTING THE DRIVES AVAILABLE FOR 
TESTING OR RETURN TO THE BEGINNING OF THE PROGRAM AND WAIT. 

ONCE THE DRIVES START TESTING, THE FOLLOWING MESSAGE WILL OCCUR 
AS EACH DRIVE BEGINS TO GE TESTED: 

'DRIVE 0 
DRIVE 2' 


AFTER ALL THE DRIVES ARE COMPLETELY TESTED. THE END OF PASS 
MESSAGE WILL BE TYPED (SEE SECTION 4.3) AND THE PROGRAM WILL START 
TESTING ALL THE DRIVES AGAIN. THIS WILL CONTINUE UNTIL THE PROGRAM 
IS HALTED BY THE OPERATOR. 


NOTE: THE LETTER LOCATED WITHIN THE BRACKETS () INDICATES THE TYPE 

OF RESPONSE REQUIRED BY THE USER, D=DECIMAL, 0=0CTAL AND 
L=LETTER. 


4.3 PROGRESS REPORTS 

AN END OF PASS REPORT OCCURS EACH TIME THE PROGRAM IS EXECUTED 
FOR ALL DEVICES IN THE TEST QUE. THE END OF PASS REPORT IS AS FOLLOWS. 

•END OF PASS I' 

THE FOLLOWING MESSAGE WILL ALSO OCCUR IF THERE WERE ERRORS SINCE 
THE LAST END OF PASS REPORT. 

•TOTAL ERRORS SINCE LAST REPORT O' 

4.4 PERFORMANCE REPORT 

NO PERFORMANCE REPORTS ARE GIVEN DURING THE EXECUTION OF THE 
PROGRAM. 


4.5 PROGRAM HALTS 

THERE ARE NO SCHEDULED HALTS DURING THE EXECUTION OF THE PROGRAM. 
PROCESSOR HALTS ARE DUE TO THE TRAP CATCHER. 


4.6 ERROR REPORTS 

THE RM80 DISKLESS 
REPORTS INTENDED TO (1) 


DIAGNOSTIC PROVIDES COMPREHENSIVE ERROR 
AID IN FAULT RESOLUTION AND (2) MINIMIZE 
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REFERENCES TO PROGRAM LISTINGS. 

THE FIRST LINE OF THE ERROR REPORT CONTAINS THE NUMBER OF THE 
UNIT (DRIVE) BEING TESTED, DRIVE TYPE, THE TEST NUMBER. THE ERROR 
NUMBER AND THE VALUE OF THE PROGRAM COUNTER WHERE THE ERROR WAS CALLED. 
THIS LINE IS FOLLOWED BY THE ERROR MESSAGE: SEVERAL LINES OF TEXT WHICH 
GIVE A COMPREHENSIVE DESCRIPTION OF THE ERROR, AND A LIST OF FAILING 
MODULES IN ORDER OF DECREASING PROBABILITY. THE ERROR MESSAGE IS 
NORMALLY FOLLOWED BY ONE OR MORE PAIRS OF LINES CONTAINING DATA HEADERS 
AND DATA PERTININENT TO THE ERROR, INCLUDING EXPECTED AND ACTUAL TEST 
RESULTS. 

THE FOLLOWING PRINTOUT IS AN ERROR MESSAGE IN THIS PROGRAM: 

DRV# 0 - RM80, TEST# 23, ERR# 61, PC=017724 
INCORRECT ECC PATTERN GENERATED DURING WRITE 
PROBABLE FAULT(S): 

(NOT INCLUDING CABLES OR CONNECTORS) 

IF MODULE, M8685, 


EXPECTED ECC 
13117 175154 


RECEIVED ECC 
017677 003402 


4.7 EXECUTION TIME 

PASS 1 OF THE PROGRAM TAKES ABOUT 2 SECONDS. PASS 2 AND 
SUBSEQUENT PASSES TAKE 12 SECONDS. 


5.0 ENVIRONMENTAL SUPPORT 

5.1 PROCESSOR COMPATIBILITY 

THE RM80 DISKLESS DIAGNOSTIC IS EXECUTABLE ON A PDP-11/70 
PROCESSOR, PROVIDING PREVIOUSLY MENTIONED HARDWARE REQUIREMENTS ARE 
MET. 


5.2 DUAL PORT CONFIGURATIONS 

THE RM80 DISKLESS DIAGNOSTIC IS NOT EXECUTABLE ON RM80 SUBSYSTEMS 
HAVING THE DUAL PORT OPTION UNLESS THE DUAL PORT SWITCH IS SET TO THE 
APPROPRIATE PORT (A OR B) AND NOT TO THE PROGRAMMABLE POSITION (A/B). 


5.3 MEMORY PARITY HARDWARE 

MEMORY PARITY HARDWARE WILL NOT BE USED DURING THE EXECUTION OF 
THE RM80 DISKLESS DIAGNGOSTIC. 


5.4 MEMORY MANAGEMENT HARDWARE 
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MEMORY MANAGEMENT HARDWARE WILL NOT BE USED DURING THE RM80 
DISKLESS DIAGNOSTIC. 


5.5 ACT11 . APT11 COMPATIBILITY 

THE RM80 DISKLESS DIAGNOSTIC PROGRAM IS COMPATIBLE WITH ACT11 AND 
APT11 IN BOTH DUMP AND AUTOMATIC MODES. FURTHER. THE PROGRAM WILL 
EXECUTE A QUICK PASS DURING THE FIRST PASS IN SUPPORT OF QUICK VERIFY 
MODE. 


5.6 XXDP COMPATIBILITY 

THE RM80 DISKLESS DIAGNOSTIC PROGRAM IS COMPATIBLE WITH XXDP IN 
DUMP AND CHAIN MODES. 


5.7 OPERATING SYSTEM COMPATIBILITY 

THE PROGRAM IS NOT REQUIRED TO BE COMPATIBLE WITH ANY OPERATING 
SYSTEM. 


6.0 TEST DESCRIPTION 

THE PROGRAM IS DESIGNED IN A BOTTOM UP MANNER SUCH THAT EACH TEST 
GENERALLY USES A MORE COMPLEX SUBSET OF HARDWARE THAN THE PREVIOUS 
TEST. 

MODULE CALLOUT IS PREDICATED ON THE ASSUMPTION THAT EARLIER TESTS 
HAVE BEEN COMPLETED WITHOUT ERROR AND THAT ERRORS ARE DUE TO SINGLE, 
NONTRANSIENT HARDWARE FAILURES. 

THE *WWO DISKLES DIAGNOSTIC*’ CAN BE EXECUTED USING AN RH70 
MASSBUS CONTROLLER. 

UNLESS SPECIFIED BY THE OPERATOR OR BY THE ENVIRONMENT TABLE THE 
TEST IS REPEATED FOR EACH POSSIBLE DEVICE STARTING WITH DEVICE 0. 

THE MODULES WHICH MAY BE CALLED OUT DURING THE EXECUTION OF THE 
TEST ARE AS FOLLOWS : 

IF 

CS 

DS 

MASSBUS MODULE 

THE RADIAL MODULE (RD) IS NOT TESTED BY THIS PROGRAM. 
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TEST 1 TRANSFER TEST 

» 

PURPOSE: 

TO VERIFY THAT THE RM80 CAN COMPLETE A REGISTER TRANSFER ON 
THE NASS8US, AND. IN PARTICULAR, TO VERIFY THAT 'TRANSFER*' IS NOT 
STUCK IN AN INACTIVE STATE. 

PROCEDURE: 

THE PROGRAM WRITES AND READS REMOTE REGISTERS FOR THE 


SELECTED DEVICE. REGISTER CONTENTS AND PARITY ERRORS,, ARE 
IGNORED. AND THE TEST FAILS IF A 'NONEXISTENT DEVICE ERROR" OR 
BUS TIMEOUT OCCURRS FOR EVERY REGISTER ACCFSS. IF THE TEST FAILS 
THE PROGRAM JUMPS TO THE END OF PASS HANDLER WHICH SELECTS THE 
NEXT DEVICE TO BE TESTED. 

PROBABLE FAULT: 

THE TEST FAILS IF THE SELECTED DEVICE IS NONEXISTENT OR IS 
SWITCHED TO THE PROGRAMMABLE POSITION OR TO THE ALTERNATE PORT. 
THE FOLLOWING FAULTS ARE APPLICABLE ONLY WHEN THE DEVICE IS 
PRESENT AND IS SWITCHED TO THE APPROPRIATE PORT. 

1. IF MODULE 

2. ASYNCHRONOUS MASSBUS MODULE 

3. CS MODULE 


TEST 2 CTOD TEST 
PURPOSE: 

TO VERIFY THAT DATA CAN BE TRANSFERRED TO AND FROM THE RM80 
USING THE CONTROL BUS AND, IN PARTICULAR. TO VERIFY THAT 
"CONTROLLER TO DEVICE* HAS NOT FAILED. 

PROCEDURE: 

THE TEST WRITES ONES IN REMOTE REGISTERS THEN READS EACH 
REGISTER WHICH WILL WRITE ZEROS IN THE REGISTER IF 1F3 CTOD HOLD 
H F ‘ IS STUCK AT ONE. THE TEST THEN READS AS MANY REMOTE REGISTERS 
AS ARE NECESSARY TO OBTAIN ONE OR MORE ONE BITS. 


PROBABLE FAULT: 

1. IF MODULE 

2. ASYNCHRONOUS MASSBUS MODULE 
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TEST 3 MASS8US INITIALIZE TEST 
PURPOSE: 

TO VERIFY THAT THE MASSBUS ADAPTER IS BEING INITIALIZED BY 
THE MASS BUS. 

PROCEDURE: 

USING CONTROLLER CLEAR TO INITIALIZE THE SELECTED UNIT. THIS 
TEST THEN READS MASSBUS ADAPTER REGISTERS TO VERIFY THAT AT LEAST 
ONE BIT IS CLEARED. MASSBUS ADAPTER REGISTERS ARE PRESET TO A 
NON ZERO VALUE PRIOR TO CONTROLLER CLEAR. 

PROBABLE FAULT: 

1. ASYNCHRONOUS MASSBUS MODULE 

2. IF NODULE 

3. CS MODULE 


TEST 4 CLEAR STUCK ACTIVE TEST 
PURPOSE: 

TO VERIFY THAT 'MBA CLR L" ON THE CS MODULE IS NOT STUCK IN 
AN ACTIVE STATE. 

PROCEDURE: 

CONTROLLER CLEAR IS USED TO INITIALIZE THE SELECTED UNIT. 
AFTER UHICH 1*S ARE WRITTEN IN ERROR REGISTERS 1 AND 2 AND 
MAINTENANCE REGISTER 1. IF ANY 1 BITS CAN BE READ BACK THE TEST 
IS OK. ELSE. 'MBA CLR L" IS PROBABLY STUCK ACTIVE. 

PROBABLE FAULT: 

1. CS MODULE 

2. IF MODULE 

3. ASYNCHRONOUS MASSBUS MODULE 


TEST 5 


TRISTATE TRANSFER TEST 
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PURPOSE: 

TO VERIFY THAT THE PATH TO AND FROM THE MASS8US ADAPTER 
TRI-STATE REGISTER BUS IS NOT STUCK AT ONE OR ZERO AND THAT EACH 
BIT POSITION IS INDEPENDENT. 

PROCEDURE: 

.HIS TEST PRESETS MASS6US ADAPTER REGISTERS TO A NONZERO 
VALUE. THEN. ASSUMING THE REGISTERS ARE PRESET. IT CLEARS THEM 
USING A MOVE INSTRUCTION. THE TEST THEN READS AS MANY REGISTERS 
AS IS NECESSARY TO OBTAIN ONE OR MORE ZEROS FROM EACH BIT 
POSITION. 

THE TEST CLEARS MASSBUS ADAPTER REGISTERS. THEN. ASSUMING 
THE REGISTERS ARE CLEARED. IT LOADS THEM WITH ONES AND READS AS 
MANY REGISTERS AS IS NECESSARY TO OBTAIN ONE OR MORE ONE BITS IN 
EACH BIT POSITION. 

FINALLY. THE TEST WRITES A SINGLE ONE BIT PATTERN IN BIT 0 
OF SELECTED REMOTE REGISTERS AND VERIFIES THAT THE PATTERN CAN BE 
READ BACK. THE ONE BIT IS SHIFTED AND THE TEST REPEATED FOR ALL 
BIT POSITIONS. 

PROBABLE FAULT: 

1. ASYNCHRONOUS MASSBUS MODULE 

2. IF MODULE 

3. CS MODULE 

4. DS MODULE 


TEST 6 REGISTER SELECT TEST 
PURPOSE: 

TO VERIFY THAT THE REGISTER SELECT LINES ARE NOT IN A STUCK 
POSITION. 

PROCEDURE: 

EACH REGISTER SELECT LINE IS TESTED BY WRITING ZEROS IN 
THOSE DEVICE REGISTERS FOR WHICH THE LINE MUST BE ZERO. THEN 
WRITING ONES IN THOSE DEVICE REGISTERS FOR WHICH THE LINE MUST BE 
ONE. THE ZERO REGISTER IS READ BACK AND IF THE SELECT LINE IS 
STUCK AT ZERO. THE ZERO REGISTER WILL CONTAIN ONES. THE PROCESS 
IS REPEATED TO DETECT A STUCK AT ONE FAULT. EXCEPT IN THIS CASE. 
THE ONES REGISTER IS WRITTEN FIRST. 

REGISTER SELECT LINES 1. 2, 4 AND 8 ARE TESTED IN THIS 
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MANNER; SELECT LINE 16 IS EXPLICITLY TESTED IN THE "ILR TEST". 
PROBABLE FAULT: 

1. IF MODULE 

2. ASYNCHRONOUS MASSBUS MODULE 


TEST 7 DRIVE TYPE TEST 
PURPOSE: 

TO TEST THE "DRIVE TYPE" REGISTER, RMDT. 

PROCEDURE: 

THE PROGRAM READS RMDT AND VERIFIES THAT THE RESULT 
CORRESPONDS TO A SINGLE PORT OR DUAL PORT RM80 DRIVE 

PROBABLE FAULT: 

1. IF MOULE 


TEST 10 DEVICE AVAILABLE TEST 
PURPOSE: 

TO VERIFY THAT DEVICE AVAILABLE STATUS IS SET. 
PROCEDURE : 

THE PROGRAM TESTS "DVA",BIT 11 OF RMCS1 . 
PROBABLE FAULT: 

1. IF MODULE 


TEST 11 SEARCH TIMEOUT TEST 
PURPOSE: 

TO VERIFY THAT THE SEARCH TIMEOUT ONE SHOT SETS *t)PI". 
EXCEPT WHEN "SEARCH TO DISABLE" IS ACTIVE. 

PROCEDURE: 
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WITH SEARCH TIMEOUT DISABLED, THE TEST EXECUTES A DATA 
COMMAND TO THE POINT WHERE "P ENABLE SEARCH" IS ASSERTED. 
AFTER WAITING A SUFFICIENT PERIOD AND VERIFYING THAT OPI 
IS NOT SET, THE TEST ENABLES SEARCH TIMEOUT AND VERIFIES 
THAT OPI SETS. 

PROBABLE FAULT: 

1. CS MODULE 

NOTE: IT IS ASSUMED THAT THE "SET OPI TEST" HAS 

ALREADY PASSED, THUS MAKING THE IF MODULE 
AN IMPROBABLE FAULT. 


TEST 12 SET DTE TEST 
PURPOSE: 

IN ADDITION TO VERIFYING THAT 'DRIVE TIMING ERROR" CAN 
BE SET BY THE CS NODULE, THIS TEST ALSO VERIFIES 

* THAT ‘MAINTENANCE SECTOR COMPARE" IS NOT STUCK AT ONE 
OR ZERO. 

* THAT ENABLE SEARCH" IS NOT STUCK AT ONE OR ZERO. 


PROCEDURE: 

(1) INITIALIZE AND VERIFY THAT 'DTE" IS RESET, THEN 
SET MAINTENANCE INDEX PULSE AND VERIFY THAT DTE IS STILL 
RESET. THIS TEST WILL INSURE THAT THE SECTOR COMPARE FLOP 
IS NOT STUCK AT ONE. 


(2) EXECUTE A DATA COMMAND IN MAINTENANCE MODE TO 
THE POINT WHERE SEARCH IS ENABLED. I.E., P EN SEARCH H IS 
IS ACTIVE. SET AND RESET THE SECTOR PULSE TO SET 'tS3 EN 
SEARCH" FLOP. AND CLOCK *tSS SECTOR COMPARE" FLOP WHICH 
SHOULD NOT SET. SET SECTOR PULSE AND VERIFY THAT DTE IS 
RESET. THIS TEST FAILS IF J INPUT TO SECTOR COMPARE FLOP 
IS STUCK AT ONE. 


REPEAT, BUT SET MAINTENANCE SECTOR COMPARE AND VERIFY 
THAT DTE SETS. THIS TEST FAILS IF MAINTENANCE SECTOR 


COMPARE IS STUCK AT ZERO. 


PROBABLE FAULT 

1. CS MODULE 

2. DS MODULE 
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TEST 13 FORMAT CHANGE TEST 
PURPOSE : 

TO VERIFY THAT A CHANGE IN FORMAT INHIBITS SEARCH 
ENABLE UNTIL THE NEXT INDEX PULSE. 

PROCEDURE: 

THE TEST WILL USE "DTE” FOR VISIBILITY OF "CS3 EN 
SEARCH H”. 

THE FOLLOWING STEPS ARE EXECUTED: 

(1) INITIALIZE AND SET THE FORMAT TO 18 BIT MODE 
TO SET "CS3 FMT CHANGE*’ FLOP. 

(2) EXECUTE A DATA COMMAND TO THE POINT WHERE SEARCH 
IS ENABLED BY THE SEQUENCER. 

(3) SuT ‘MAINTENANCE SECTOR COMPARE**. THEN SET 
•MAINTENANCE SECTOR PULSE* TO CLOCK **CS3 EN SEARCH** FLOP 
WHICH SHOULD NOT SET BECAUSE OF THE FORMAT CHANGE. 

(4) RESET SECTOR PULSE TO CLOCK **CS5 SECTOR COMPARE” 
FLOP WHICH WILL NOT SET IF **CS3 EN SEARCH H” IS INACTIVE. 

(5) SET SECTOR PULSE AND VERIFY THAT DRIVE TIMING 
ERROR IS RESET. 

(6) SET AND RESET INDEX PULSE TOCLEAR THE FORMAT 
CHANGE FLOP. 

(7) SET AND RESET SECTOR PULSE TO SET *’CS3 EN SEARCH” 
FLOP AND **CS5 SECTOR COMPARE” FLOP. 

(8) SET SECTOR COMPARE AND VERIFY THAT DTE IS SET. 

REPEAT THE TEST WITH A FORMAT CHANGE FROM 18 BIT MODE 
TO 16 BIT MODE. 

PROBABLE FAULT: 

1. CS MODULE 


TEST 14 PROM STROBE TEST 
PURPOSE: 

TO VERIFY THAT WORD CLOCK AND PROM STROBE CAN BE MANIPULATED 
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C 2 


SEfl 0015 


IN MAINTENANCE MODE. 

PROCEDURE: 

INITIALIZE AND SET 16 BIT MODE, THEN SEQUENCE THE 
MAINTENANCE CLOCK UNTIL PROM STP.OBE SETS. ISSUE — MORE 
MAINTENANCE CLOCK PULSES AND VERIFY THAT PROM STROBE RESETS. 

PROBABLE FAULT: 

1. CS MODULE 

2. DS MODULE 


TEST 15 SYNC WORD COUNT INHIBIT TEST 
PURPOSE: 

TO VERIFY THE FOLLOWING DURING READ COMMAND: 

* THAT "CS4 P LFS" (LOOKING FOR SYNC) GOES ACTIVE. 

* THAT "LOOKING FOR SYNC" INHIBITS THE WORD COUNT 
PROCEDURE : 

A READ COMMAND IS SETUP AND EXECUTED TO THE POINT 
WHERE '100KING FOR SYNC" SHOULD BE ACTIVE. WITH THE 
PROGRAM VERIFYING THE TRANSITION OF THE SIGNAL. THE 
PROGRAM THEN SUPPLIES A SERIES OF BIT CLOCKS AND VERIFIES 
THAT "PR OM STROBE^’ NEVER GOES ACTIVE. 

PROBABLE FAULT: 

1. CS MODULE IF LFS FAILS. 

2. OS MODULE IF PROM STROBE FAILS. 


TEST 16 SYNC DETECTION TEST 
PURPOSE: 

TO VERIFY THAT THE APPROPRIATE SYNC PATTERN IS 
RECOGNIZED. 

PROCEDURE: 

THE TEST EXECUTES A READ COMMAND IN MAINTENANCE MODE. 
USING BIT 10 OF THE MAINTENANCE REGISTER (RMMR1) TO SIMULIATE 
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SEQ 0016 


THE SYNC BIT STREAM. AND USING PROM STROBE TO DETERMINE 
IF THE SYNC PATTERN HAS BEEN DETECTED. 

THE SYNC PATTERN IS 00011001, WITH THE LEFT MOST 
BIT REPRESENTING THE LAST BIT OF THE STREAM. 

PROBABLE FAULT: 

1. DS MODULE 

2. CS MODULE 


TEST 17 ABOP' SYNC DETECTION TEST 
PURPOSE: 

TO VERIFY THAT ‘1V0RD COUNT INHIBIT" IS RESET IF A 
’DRIVE TIMING ERROR" OCCURS DURING SYNC DETECTION. 

PROCEDURE: 

A READ COMMAND IS INITIATED IN MAINTENANCE MODE. WHEN 
"LOOMING FOR SYNC" GOES ACTIVE. THE TEST FORCES A DRIVE 
TIMJN6 ERROR AND USES PROM STROBE TO VERIFY THAT \*>RD 
COUNT INHI8IT" HAS BEEN RESET. 


PROBABLE FAULT: 
1 . DS MODULE 


TEST 20 SYNC GENERATION TEST 
PURPOSE: 

TO VERIFY THAT THE APPROPRIATE SYNC PATTERN IS 
GENERATED DURING A FORMAT OPERATION. 

PROCEDURE: 

THE TEST EXECUTES A WRITE HEADER AND DATA COMMAND 
IN MAINTENANCE MODE, AND VERIFIES THAT THE CORRECT SYNC 
PATTERN IS GENERATE6 8Y MONITORING WRITE DATA AT THE MAIN- 
TENANCE RE6ISTER (RMMR1). 


PROBABLE FAULT: 
1. DS MODULE 


CZRNCAO RM80 DSKLS PT2 MACRO VQ4.00 14-JAN-82 16:41:16 PA6E 3-14 


SEO OC17 


TEST 21 WRITE HEADER TEST 
PURPOSE: 

TEST THE OPERATION OF (1) THE DATA BUFFER AND SHIFT 
REGISTER AS WELL AS (2) THE ECC GENERATION DURING WRITE. 

PROCEDURE: 

A WRITE HEADER AND DATA COMMAND IS EXECUTED IN MAINTENANCE 
MODE. THE TEST VERIFIES HEADER WORDS ONE AND TWO AND THE 
CRC CHARACTER USING THE WRITE DATA SIT OF THE MAINTENANCE 
REGISTER. 

THE TEST USES CYLINDER 560., TRACK 13.. SECTOR 30. AND 
16 BIT FORMAT, WHICH CORRESPONSE TO THE FOLLOWING: 

HEADER: 

WORD 1 - 1101001000110000 
WORD 2 - 0000110100011110 
PROBABLE FAULT: 

1. DS MODULE OR MASS8US MODULE 


TEST 22 HEADER COMPARE TEST 
PURPOSE: 

TO CHECK THE OPERATION OF (1) THE SHIFT REGISTER AND 
DATA BUFFER AS WELL AS THE (2) CRC GENERATOR DURING 
READ. 

PROCEDURE: 

THE TES) EXECUTES A READ HEADER AND DATA COMMAND IN 
MAINTENANCE MODE USING BIT 10 ?F THE MAINTENANCE REGISTER 
(RMMR1) TO SIMULATE THE DATA BITS FOR THE FIRST AND SECOND 
HEADER WORDS AS WELL AS THE CRC CHARACTER. THE CRC CHARACTER IS 
IS FAULTED, AND THE TEST VERIFIES THAT A CRC ERROR IS DETECTED. 
ADDITIONALLY,^* TEST VERIFIES THAT HEADER WORDS ONE AND TWO 

ft MS m&JBEEb, the previous test except 

THAT BIT 15 IS INVERTED. 

PROBABLE FAULT: 

1. DS OR IF MODULE IF CRC ERROR NOT DETECTED; 
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SEQ 0018 


856 

857 

858 

859 

860 
861 
862 

863 

864 

865 

866 

867 

868 

869 

870 

871 

872 

873 

874 

875 

876 

877 

878 

879 

880 
881 
882 

883 

884 

885 

886 
887 
883 

889 

890 

891 

892 

893 

894 

895 

896 

897 

898 

899 

900 

901 
12 
13 

>4 


2. DS OR MASS8US MODULE IP DATA INCORRECT 


TEST 23 ECC GENERATION TEST 
PURPOSE: 

TO CHECK ECC OPERATION DURING WRITE. 


PROCEDURE: 

A WRITE DATA COMMAND IS EXECUTED IN MAINTENANCE 
MODE. ALL ONES DATA FIELD IS USED, AND THE TEST VERIFIES 
THE ECC CHARACTER VIA THE WRITE DATA BIT OF THE MAINTENANCE 
REGISTER. THE DATA FIELD IS NOT VERIFIED. 

PROBABLE FAULT: 

1. DS MODULE 


TEST 24 ECC DETECTION TEST 


PURPOSE: 

TO CHECK THE ECC GENERATION DURING READ. 

PROCEDURE: 

THE TEST EXECUTES A READ DATA COMMAND IN MAINTENANCE 
MODE, AN ALL ONES DATA FIELD IS USED, HOWEVER THE LAST DATA 
WORD IS FAULTED. 

THE TEST VERIFIES (1) THAT AN ECC ERROR IS DETECTED 
AND THAT (2) THE POSITION AND PATTERN REGISTERS ARE VALID. 


PROBABLE FAULT: 
1. DS MODULE 
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SEO 0019 


001100 

104000 

000004 


000011 

000012 

000015 

000200 

177776 

177776 

177774 

177772 

177570 

177570 


000000 

000001 

000002 

000003 

000004 


.-•LAST REVISION 07-AUG-81 

.TITLE CZRNCAO RM80 DSKLS PT2 
.-•COPYRIGHT (C) 1982 
-•DIGITAL EQUIPMENT CORPORATION 
.-•COLORADO SPGS., CO. 80919 

-•PROGRAM BY HIKE LEAVITT 

;*THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
.-•PACKAGE (MAINDEC-1 1 -DZQAC-C5) , 18-MAR-81 


SBTTL OPERATIONAL SWITCH SETTINGS 
* 


SWITCH 


HALT ON ERROR 

LOOP ON TEST 

INHIBIT ERROR TYPEOUTS 

INHIBIT ITERATIONS 

BELL ON ERROR 

LOOP ON ERROR 

LOOP ON TEST IN SWR<7:0> 

TNI 28 

TN64 

TN32 

TN16 

TN8 

TN4 

TN2 

TNI 


.SBTTL BASIC DEFINITIONS 

.-•INITIAL ADDRESS OF THE STACK POINTER *** 1100 ••* 

ERROR = EMT° ; .-BASIC DEFINITION OF ERROR CALL 

SCOPE = IOT I .BASIC DEFINITION OF SCOPE CALL 

.-•MISCELLANEOUS DEFINITIONS _ 


HT 11 ;;COOE FOR HOR 
LF = 12 ; ; CODE FOR LIM 
CR = 15 ;;CODE FOR CARI 
CRLF = 200 ; ; CODE FOR CARI 
PS = 177776 ^PROCESSOR SL 
PSW=PS 

STKLMT = 177774 ;; STACK LIMIT I 
PIRQ - 177772 ; .-PROGRAM INTEI 
DSWR = 177570 ;; HARDWARE SWI 
DDISP = 177570 ;; HARDWARE DISi 

.-•GENERAL PURPOSE KEGISTER DEFINITIONS 


COOE FOR HORIZONTAL TAB 

CODE FOR LINE FEED 

CODE FOR CARRIA6E RETURN 

CODE FOR CARRIAGE RETURN-LINE FEED 

PROCESSOR STATUS WORD 

STACK LIMIT REGISTER 
PROGRAM INTERRUPT REQUEST REGISTER 
HARDWARE SWITCH REGISTER 
HARDWARE DISPLAY REGISTER 


GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 




SEO 0020 


I 
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BIT03 = 10 

BIT02 = 4 

BIT01 = 2 

BITOO = 1 

BIT9=8IT09 
BIT8=BIT08 
BIT7=BIT07 
BIT6=8IT06 
BIT5=8IT05 
BIT4=BIT04 
BIT3=BIT03 
BIT2=8IT02 
BIT1=BJT01 
BIT0=8IT00 


SEQ 0021 





rJi 


kji 


kV 

iTiTiTi 

$ 


; ‘BASIC 

ERRVEC 

RESVEC 

TBITVEC 

TRTVEC 

BPTVEC 

IOFVEC 

PWRVEC 

EMTVEC 

TRAPVEC 

TKVEC 

TPVEC 

PIRQVEC 


’CPU’* 

4 

10 

14 

14 

14 

20 

24 

30 

34 

60 

64 

240 


VECTOR 


ADDRESSES 

TIME OUT AND OTHER ERRORS 
RESERVED AND ILLEGAL INSTRUCTIONS 
•T* BIT 
TRACE TRAP 

BREAKPOINT TRAP (BPT) 

INPUT/OUTPUT TRAP (iOT) “SCOPE** 
POWER FAIL 

EMULATOR TRAP (EMT) “ERROR** 

*7 RAP" TRAP 

TTY KEYBOARD VECTOR 

TTY PRINTER VECTOR 

PROGRAM INTERRUPT REQUEST VECTOR 


.S8TTL RM80 REGISTER BIT DEFINITIONS 
;*RMCS1 CONTROL STATUS REGISTER 


DVA = 
F4 = 
F3 

F2 = 
FI = 
FO = 
GO = 
FNCMSK = 

.-FUNCTION 
NOP = 
ILF02 = 
SEEK = 
RE CAL = 
DRVCLR = 
RLEASE = 
OFFSET = 
RTC = 
RIP = 
PAKACK = 
PACACK - 
ILF24 - 
ILF26 = 
SEARCH - 


BIT11 
BIT05 
BIT04 
BIT03 
BIT02 
8IT01 
II TOO 


DEVICE AVAILABLE-READ ONLY 

FUNCTION CODE 

FUNCTION CODE 

FUNCTION CODE 

FUNCTION CODE 

FUNCTION CODE 

GO BIT 

FUNCTION CODE MASK 


CODES (BITS 01-05 OF RMCS1) 

;NOP COMMAND 



- PAKACK 



ILLEGAL COMMAND 

SEEK COMMAND 

RECALIBRATE COMMAND 

DRIVE CLEAR COMMAND 

RELEASE COMMAND 

OFFSET COMMAND 

RETURN TO CENTERLINE COMMAND 

READ IN PRESET COMMAND 

PACK ACKNOWLEDGE COMMAND 

ILLEGAL COMMAND 
ILLEGAL COMMAND 
SEARCH COMMAND 
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ILF 30 

r 

000030 

ILF32 

x 

000032 

ILF34 

r 

000034 

ILF36 

s 

000036 

ILF40 

x 

000040 

ILF42 

X 

000042 

ILF44 

S 

000044 

ILF46 

x 

000046 

WCD 

x 

000050 

WCH 

x 

000052 

ILF54 

s 

000054 

ILF56 

x 

000056 

WD 

x 

000060 

WH 

X 

000062 

ILF64 

X 

000064 

ILF66 

x 

000066 

RD 

x 

000070 

RH 

X 

000072 

ILF 74 

X 

000074 

ILF 76 

X 

000076 



; *RMDA 

DISK ADDRESS REGISTER 


.'TRACK ADDRESS DEFINITIONS 

004000 

TA8 

= BIT11 

002000 

TA4 

= BIT10 

001000 

TA2 

= BIT09 

000400 

TA1 

= BIT08 


.'SECTOR ADDRESS DEFINITIONS 

000020 

SA16 

= BIT04 

000010 

SA8 

= BIT03 

000004 

SA4 

= BIT02 

000002 

SA2 

= BIT01 

000001 

SA1 

= BITOO 


; TRACK 

t SECTOR MASKS 

177400 

TADMSK 

= 177400 

000377 

SADMSK 

= 000377 


;*RMDS 

DRIVE STATUS REGISTER 

100000 

ATA 

= BIT15 

040000 

ERR 

= BIT14 

020000 

PIP 

= BIT13 

010000 

MOL 

= 9IT12 


WRL 

= BIT11 

002000 

LBT 

= BIT10 

001000 

PGM 

= 8IT09 

000400 

DPR 

= BIT08 

000200 

DRY 

= BIT07 

000100 

VV 

* BIT06 

000001 

OM 

* BITOO 


lOOOOO 


;*RMER1 ERROR REGISTER #1 
DCK = BIT15 


SEO 0022 


ILLEGAL COMMAND 

ILLEGAL COMMAND 

ILLEGAL COMMAND 

ILLEGAL COMMAND 

ILLEGAL COMMAND 

ILLEGAL COMMAND 

ILLEGAL COMMAND 

ILLEGAL COMMAND 

WRITE CHECK DATA COMMAND 

WRITE CHECK HEADER AND DATA 

ILLEGAL COMMAND 

ILLEGAL COMMAND 

WRITE DATA COMMAND 

WRITE HEADER AND DATA COMMAND 

ILLEGAL COMMAND 

ILLEGAL COMMAND 

READ DATA COMMAND 

READ HEADER AND DATA COMMAND 

illegal command 

ILLEGAL COMMAND 


TRACK ADDRESS 8. 
TRACK ADDRESS 4 
TRACK ADDRESS 2 
TRACK ADDRESS 1 


SECTOR ADDRESS 16. 
SECTOR ADDRESS 8. 
SECTOR ADDRESS 4 
SECTOR ADDRESS 2 
SECTOR ADDRESS 1 


.TRACK ADDRESS MASK 
.SECTOR ADDRESS MASK 


ATTENTION ACTIVE 
COMPOSITE ERROR 
POSITIONING IN PROGRESS 
MEDIUM ON LINE 
WRITE LOCK 

LAST BLOCK TRANSFERRED 
PROGRAMMABLE 
DRIVE PRESENT 
DRIVE READY 
VOLUME VALID 
OFFSET MODE ACTIVE 


.'DATA CHECK ERROR 


i 


SEQ 0023 
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040000 

UNS 

= BIT14 

020000 

OPI 

= BIT13 

01 0000 

DTE 

= BIT12 

0 

i j i j 1 1 

WLE 

= BIT1 1 

0 

1 -itVi®?; 

1AE 

= BIT10 

0 

* tiii > i 

AOE 

= BIT09 

000400 

HCRC 

= BIT08 

000200 

HCE 

= B1T07 

000100 

ECH 

= BIT06 


WCF 

= BIT05 

000020 

FER 

^ BIT04 

000010 

PAR 

= BITC3 


RMR 

= BIT02 

000002 

ILR 

= BIT01 

000001 

ILF 

= BITOO 


115760 


0003 77 


002000 

001000 

000400 

000200 

000100 

003700 



002000 

001000 



UNS = BIT14 .-DRIVE UNSAFE 

OPI = BIT13 .-OPERATION INCOMPLETE 

DTE = BIT12 .-DRIVE TIMING ERROR 

ULE = BIT 1i ; WRITE LOCK ERROR 

1AE = BIT10 .-INVALID ADDRESS ERROR 

AOE = BIT09 .-ADDRESS OVERFLOW ERROR 

HCRC = BIT08 .-HEADER CRC ERROR 

HCE = B1T07 .-HEADER COMPARE ERROR 

ECH = BIT06 ;ECC r WARD“ ERROR 

UCF = BIT05 .-WRITE CLOCK FAILURE 

FEH - BIT 04 .-FORMAT ERROR 

PAR = 81 T 03 .-PARITY ERROR 

RMR = BIT02 .-REGISTER MODIFICATION REFUSED 

ILR = BIT01 .-ILLEGAL REGISTER 

ILF = BITOO ; ILLEGAL FUNCTION 

NDTMSK = DCK ! DTE ! WLE ! AOE ! HCRC! HCE! ECH fWCFJFER 

.-•UDTMSK" IS USED TO MASK ERROR REGISTER 1 DURING NON - DATA 

.-COMMANDS. I.E.. HOUSEKEEPING AND POSITIONING COMMANDS 


;*RMAS 

ATTENTION SUMMARY REGISTER | 

ATNMSK 

= 377 

.MASK FOR ATTENTION BITS 

; *RMLA 

LOOK AHEAD REGISTER 


SC4 

= B1T10 

.-SECTOR COUNT = 16 

SC3 

= BIT09 

.-SECTOR COUNT = 8 

SC 2 

= BIT08 

; SECTOR COUNT = 4 

SCI 

= BIT07 

.-SECTOR COUNT = 2 

SCO 

= BIT06 

.-SECTOR COUNT = 1 

SCTHSK 

= 003700 

.-SECTOR COUNT MASK 

;*RMHR1 

MAINTENANCE REGISTER #1 



.-WRITE 

DBCK 

D8EN 

DEBL 

MSEN 

MCLK 

MRD 

MUR 

HOC 

MSER 

MDF 

MS 

MW P 

MI 

MSC 

DMD 


ONLY BITS 
= BIT15 
= BIT14 
= BIT13 
= BIT12 
= BIT11 
= BIT10 
= BIT09 
= BIT08 
= BIT07 
= BJT06 
= BIT05 
= BIT03 
= BIT02 
= BIT01 
= BITOO 


100000 

040000 

020000 


.-READ ONLY BITS 
OCC = BIT15 
RG = QIT14 
EBL = BIT13 


DEBUS CLOCK 

DEBUG CLOCK ENABLE 

DIAGNOSTIC END OF BLOCK 

SEARCH TIMEOUT ENABLE 

MAINTENANCE CLOCK 

READ DATA 

UNIT READY 

ON CYLINDER 

SEEK ERROR 

DRIVE FAULT 

SECTOR PULSE 

WRITE PROTECT 

INDEX PULSE 

SECTOR COMPARE 

DIAGNOSTIC MODE 


OCCUPIED 
RUN AND GO 
END OF BLOCK 


L 2 


SEO 0024 
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010000 

004000 

002000 



100000 

040000 

020000 

004000 

020026 

024026 


010000 

004000 

002000 

001000 

000200 

160577 


001777 

176000 


REX = BIT12 
ESRC = BIT11 
PLFS = BIT10 
ECRC = BIT09 
PDA = BIT08 
PHA = BIT07 
CONT = BIT06 
WC = B1T05 
EECC = BIT04 
NUD = BIT03 
LS = BIT02 
LST = BIT01 
DMD = BITOO 

MR1AAA = DMD!MUR!DBEN!MOC!MSEN 

;*RMDT DRIVE TYPE REGISTER 

NSA = BIT15 
TAP = BIT14 
MOH = BIT13 
DRQ = BIT11 


SNGPRT 

DULPRT 


= 020026 
= 024026 


;*RMOF OFFSET REGISTER 


FMT16 

ECI 

HCJ 

SSEI 

OFD 

XNUOF 


BIT12 

BIT11 

BIT10 

BIT09 

BIT07 

160577 


EXCEPTION 
ENABLE SEARCH 
LOOXING FOR SYNC 
ENABLE CRC OUT 
DATA AREA 
HEADER AREA 
CONTINUE 
WORD CLOCK 
ENABLE ECC OUT 
WRITE DATA BIT 
LAST SECTOR 
LAST SECTOR AND TRACK 
DIAGNOSTIC MODE 


;NOT SECTOR ADDRESSED = 0 
;TAPE DRIVE = 0 
; MOVING HEAD - 1 
.-DRIVE REQUEST REQUIRED 

.•SINGLE PORT DRIVE TYPE 
.•DUAL PORT DRIVE TYPE 


16 BIT UORD FORMAT 
ECC INHIBIT 

HEADER COMPARE INHIBIT 
SKIP SECTOR ERROR INHIBIT 
OFFSET FORWARD 
UNSED BITS OF RHOF 


;*RMDC DESIRED CYLINDER ADDRESS REGISTER 


CYLMSK 

XNUDC 


= 001777 
= 176000 


.-MASK FOR CYLINDER ADDRESS 
.‘UNSED BITS OF RMDC 


;*RMMR2 MAINTENANCE REGISTER * 2 

.•READ ONLY BITS 
RQA = BIT15 

ROB = BIT14 

TAG = BIT13 

TST = 8IT12 

= BIT11 
= BIT10 
= BIT09 
= BIT08 
= BIT07 
= 8IT06 
= BIT05 
= BIT04 
= BIT03 
= BIT02 
= BIT01 


PORT A REQUEST 
PORT B REQUEST 
TAG CONTROL 

COMMAND SEQUENCE TEST BIT 

CONTROL OR CYLINDER TAG 

CONTROL OR HEAD TAG 

TAG BUS 

TAG BUS 

TAG BUS 

TAG BUS 

TAG BUS 

TAG BUS 

TAG BUS 

TAG BUS 

TAG BUS 


CZRNCAO RM80 DSKLS PT? MACRO V04.00 14-JAN-82 16:41:16 PAGE 4-6 
RM80 REGISTER BIT DEFINITIONS 


SEQ 0025 


000001 


BBOO = BITOO 
;*RMER2 ERROR REGISTER 2 


100000 

BSE 

= BIT15 

lUT* vM — 

SKI 

= BIT14 


OPE 

= BIT13 


I VC 

= BIT12 


LSC 

= BIT11 


L8C 

= BIT10 


DVC 

= BIT07 


SSE 

= BIT05 


DPE 

= BIT03 

001527 

XNUER2 

= 001527 


.SBTTL 

PROGRAM MNEMONICS 

100000 

MSE 

= BIT15 

040000 

USE 

= BIT14 

020000 

SSF 

= BIT13 


;TAG BUS 


BAD SECTOR ERROR 
SEEK INCOMPLETE 
OPERATOR PLUG ERROR 
INVALID COMMAND ERROR 
LOSS OF SYSTEM CLOCK 
LOSS OF BIT CLOCK 
DEVICE CHECK 
SKIP SECTOR ERROR 
DATA PARITY ERROR 
UNSED BITS OF RMER2 


MANUFACTURING DETECTED SECTOR ERROR 
USER DETECTED SECTOR ERROR 
SKIP SECTOR PAiLURE 


.SBTTL RM80 REGISTER INOEX VALUES 


RMCS1 

RMDA 

RMDS 

RMER1 

RMAS 

RMLA 

RMMR1 

RMDT 

RMSN 

RMOF 

RMDC 

RMHR 

RMMR2 

RMER2 

RMEC1 

RMEC2 

1LRG50 

ILRG52 

1LRG54 

1LRG56 

ILRG60 

ILRG62 

ILRG64 

ILRG66 

ILRG70 

ILRG72 

ILRG74 

ILRG76 


CONTROL STATUS REGISTER #1 
DISK ADDRESS REGISTER 
DRIVE STATUS REGISTER 
ERROR REGISTER #1 
ATTENTION SUMMARY REGISTER 
LOOK AHEAD REGISTER 
MAINTENANCE REGISTER 
DRIVE TYPE REGISTER 
SERIAL NUMBER REGISTER 
OFFSET RE6ISTER 
DESIRED CYLINDER RE6ISTER 
HOLDING RE6ISTER 
MAINTENANCE RE6ISTER 02 
ERROR REGISTER 02 
ECC POSITION REGISTER 
ECC PATTERN REGISTER 
ILLEGAL REGISTER 50 
ILLEGAL REGISTER 52 
ILLEGAL REGISTER 54 
ILLEGAL REGISTER 56 
ILLEGAL RE6ISTER 60 
ILLEGAL REGISTER 62 
ILLEGAL RE6ISTER 64 
ILLEGAL REGISTER 66 
ILLEGAL REGISTER 70 
ILLEGAL REGISTER 72 
ILLEGAL REGISTER 74 
ILLEGAL REGISTER 76 


0 00077 


IDXMSK * 77 ;MASK FOR REGISTER INDEX NUMBER 

.SBTTL RH CONTROLLER REGISTER BIT DEFINITIONS 
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937 ;*RMCS1 CONTROL STATUS REGISTER 


SEQ 002 6 



OOIOOO 



002000 

OOIOOO 

000400 

000200 

000100 

000040 

000020 

000010 

000004 

000002 

000001 


000007 


100000 

040000 

020000 

010000 

004000 

002000 

000100 

000010 

000004 

000002 

000001 


000000 



BIT15 
BIT14 
BIT13 
BIT10 
BIT09 
91 T 08 
BIT07 
BIT06 


SPECIAL CONDITION-READ ONLY 
TRANSFER ERROR 

MASSBUS CONTROL BUS PARITY ERROR-READ ONLY 

PORT B SELECT 

ADDRESS EXTENSION 

ADDRESS EXTENSION 

READY-READ ONLY 

INTERRUPT ENABLE 


;*RMCS2 RH CONTROL STATUS REGISTER 02 


BIT15 
BIT14 
BIT13 
BIT12 
BIT11 
BIT10 
BIT09 
BIT08 
BIT07 
BIT 06 
BIT05 
BIT04 
BIT03 
BIT02 
BIT01 
BITOO 


.-UNIT SELECT MASK 
UNTMSK = 7 


DATA LATE-READ ONLY 
WRITE CHECK ERROR-READ ONLY 
UNIBUS PARITY ERROR 
NONEXISTANT DRIVE-READ ONLY 
NONEXISTANT MEMORY-READ ONLY 
PROGRAM ERROR-READ ONLY 
KISSED TRANSFER 

MASSBUS DATA BUS PARITY ERROR-READ ONLY 
OUTPUT READY-READ ONLY 
INPUT READY-READ ONLY 
CONTROLLER CLEAR 
PARITY TEST 

UNIBUS ADDRESS INCREMENT INHIBIT 
UNIT SELECT 
UNIT SELECT 
UNIT SELECT 


.'UNIT SELECT MASK 


; *RMCS3 RH70 CONTROL STATUS REGISTER 01 


APE 

a 8IT15 

ADDRESS PARITY ERROR 

DPEHI 

= BIT14 

DATA PARITY ERROR HIGH WORD 

DPELO 

a BIT13 

DATA PARITY ERROR LOU WORD 

UCEHI 

* BIT12 

WRITE CHECK ERROR HIGH WORD 

WCELO 

a BIT11 

WRITE CHECK ERROR LOU WORD 

DBL 

a BIT10 

DOUBLE WORD TRANSFER 

IE 

a BIT06 

INTERRUPT ENABLE 

IPCK3 

a BIT03 

INVERT PARITY CHECK 

IPCK2 

a BIT02 

INVERT PARITY CHECK 

IPCK1 

a BIT01 

INVERT PARITY CHECK 

IPCKO 

a BITOO 

INVERT PARITY CHECK 


.S8TTL RH CONTROLLER REGISTER INDEX VALUES 


RMCS1 

RMWC 

RMBA 

RMCS2 

RMD6 

RMBAE 

rmcs5 


CONTROL. STATUS REGISTER #1 
WORD COUNT REGISTER 
BUS ADDRESS REGISTER 
CONTROL. STATUS REGISTER 02 
DATA BUFFER 
BUS ADDRESS EXTENSION 
CONTROL. STATUS REGISTER #3 


l 
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B 3 


SEQ 0027 


994 

995 176700 

996 120254 

997 


ABASE 

AVECT1 


= 176700 
= 120254 


; UNIBUS ADDRESS 

;UN18US VECTOR ADDRESS AND PRIORITV 


SEQ 0023 
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000174 

000176 


3 000204 

4 

5 


000046 

000052 


000174 

000000 

000000 


000200 000137 002732 


000137 002722 


000210 

0000*6 

021354 

000052 

000000 

000210 


001100 


001100 
000024 
000024 000200 
000044 
000044 001100 
001100 


001100 

001100 

001102 

001104 

001106 

001110 

001112 


000000 

001222 

000002 

000002 

000002 

000042 

001114 


.SBTTl TRAP CATCHER 


•ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A *‘.♦2, HALT" 
•SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
•LOCATION 0 CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 
.=174 


D1SPRE6: .WORD 0 
SUREG: .WORD 0 

.SBTTL STARTING ADDRESS(ES) 

JMP 8#START 

JMP 8ASTART1 

.SBTTL ACT11 HOOKS 


;; SOFTWARE DISPLAY REGISTER 
.-.-SOFTWARE SWITCH REGISTER 


.-.-JUMP TO STARTING ADDRESS OF PROGRAM 
.‘CHANGE RM/RM BUS ADDRESS 


.‘HOOKS REQUIRED BY ACT11 
SSVPC=. 

.=46 

SENDAD 

.=52 

.WORD 0 
.=SSVPC 

.=1100 

.SBTTL APT PARAMETER BLOCK 


.'SAVE PC 

;;1)SET L0C.46 TO ADDRESS OF SENDAD IN .SEOP 

;;2)SET LOC.52 TO ZERO 
;; RESTORE PC 


.SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 


.$X=. 

.=24 

200 

.=44 

SAPTHDR 

.=.SX 


.-SAVE CURRENT LOCATION 

;SET POWER FAIL 10 POINT TO START OF PROGRAM 
;FOR APT START UP 

.POINT TO APT INDIRECT ADDRESS PNTR. 

.‘POINT TO APT HEADER BLOCK 
.‘RESET LOCATION COUNTER 


SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP1 1 0IA6N0S1IC 
INTERFACE SPEC. 


SAPTHD : 

SHIBTS: .WORD 0 

SMBADR: .WORD SMAIL 

STSTM: .WORD 2 

SPA STM: .WORD 2 

SUNITM: .WORD 2 

.WORD SETEND 

TA6ADR=. 


; ;TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 

; .-ADDRESS OF APT MAILBOX (BITS 0-15) 

;;RUN TIM OF LONGEST TEST 

;;RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDED UNIT 
•SflA!L/2 ; .‘LENGTH MAI LBQX-ETABLE (WORDS) 


SEQ 0029 


D 3 
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0 .S8TTL COMMON TAGS 


•THIS TABLE C0N1AINS VARIOUS COMMON STORAGE LOCATIONS 
•USED IN THE PROGRAM. 



001114 


.=TAGADR 



00 1 114 



SCMTAG: 



;; START OF COMMON TAGS 

001 IK 

000000 


.WORD 

0 



001116 

000 


STSTNM: .BYTE 

0 


;; CONTAINS THE TEST NUMBER 

001117 

000 


SERFLG: .BYTE 

0 


;; CONTAINS ERROR FLAG 

001120 

000000 


SICNT : .WORD 

0 


; .-CONTAINS SUBTEST ITERATION COUNT 

001122 

000000 


SLPADR: .WORD 

0 


;; CONTAINS SCOPE LOOP ADDRESS 

001124 

000000 


SLPERR: .WORD 

0 


;; CONTAINS SCOPE RETURN FOR ERRORS 

001126 

000000 


SERTTL: .WORD 

0 


; .-CONTAINS TOTAL ERRORS DETECTED 

001130 

000 


JITEMB: .BYTE 

0 


;; CONTAINS ITEM CONTROL BYTE 

001131 

001 


SERMAX: .8VTE 

1 


;; CONTAINS MAX. ERRORS PER TEST 

001132 

000000 


$ERRPC: .WORD 

0 


;; CONTAINS PC OF LAST ERROR INSTRUCTION 

001134 

000000 


JGDADR: .WORD 

0 


.'.‘CONTAINS ADDRESS CF 'GOOD' DATA 

001136 

000000 


S6DADR: .WORD 

0 


;; CONTAINS ADDRESS OF 'BAD' DATA 

0C1K0 

ooocoo 


SGDDAT : .WORD 

0 


;; CONTAINS 'GOOD' DATA 

001142 

000000 


S6DDAT : .WORD 

0 


;; CONTAINS ’BAD’ DATA 

001 K4 

000000 


.WORD 

0 


;; RESERVED— NOT TO BE USED 

001146 

000000 


.WORD 

0 



001150 

000 


SAUTOB: .BYTE 

0 


; .'AUTOMATIC MODE INDICATOR 

001151 

000 


SINTAG: .BYTE 

0 


.‘.‘INTERRUPT MODE INDICATOR 

001152 

000000 


. WORD 

0 



001154 

177570 


SWR: .WORD 

DSWR 


; .-ADDRESS OF SWITCH REGISTER 

001156 

177570 


DISPLAY: .WORD 

DDISP 


; .‘ADDRESS OF DISPLAY REGISTER 

001160 

177560 


$TKS: 177560 



;;TTY KBD STATUS 

001162 

177562 


$TKB: 177562 



;;TTY KBD BUFFER 

001164 

177564 


$TPS: 177564 



;;TTV PRINTER STATUS REG. ADDRESS 

001166 

177566 


$TPB: 177566 



;;TTY PRINTER BUFFER REG. ADDRESS 

001170 

000 


SNULL: .BYTE 

0 


.‘.'CONTAINS NULL CHARACTER FOR FILLS 

001171 

002 


STILLS: .BYTE 

2 


;; CONTAINS » OF FILLER CHARACTERS REQUIRED 

001172 

012 


SFILLC: .BYTE 

12 


.‘.‘INSERT FILL CHARS. AFTER A *1INE FEED" 

001173 

000 


STPFLG: .BYTE 

0 


; .‘"TERMINAL AVAILABLE" FLAG (8IT<07>=0=YES) 

001174 

000000 


STMPO: .WORD 

0 


.-.-USER DEFINED 

001176 

000000 


STMP1 : .WORD 

0 


.-.‘USER DEFINED 

001200 

000000 


JTMP2: .WORD 

0 


.‘.'USER DEFINED 

001202 

000000 


STMP3: .WORD 

0 


.-.-USER DEFINED 

001204 



STMP4: .WORD 

0 


.‘.‘USER DEFINED 

001206 

000000 


STIMES: 0 



;;MAX. NUMBER OF ITERATIONS 

001210 

000000 


SESCAPE.'O 



.‘.‘ESCAPE ON ERROR ADDRESS 

001212 

207 

377 

377 SBELL: .ASCIZ 

<207><377><377> ;;C0DE FOR BELL i 

001216 

077 


SOUES: .ASCII 

/?/ 


.‘.‘QUESTION MARK 

001217 

015 


SCRLF: .ASCII 

<15> 


;; CARRIAGE RETURN 

001220 

012 

000 

SLF: .ASCIZ 

<12> 


;;LINE FEED 




'.S8TTL APT MAILBOX-E TABLE 




• .•*********••**•*********•*•**•**•**•****••******************••• 




.EVEN 



1 

001222 



SMAIL: 


• 

APT MAILBOX 

001222 

000000 


SMSGTY: .WORD 

AMSGTY 


MESSAGE TYPE CODE 

001224 

Of 0000 


SFATAL: .WORD 

AFATAL 


FATAL ERROR NUMBER 

001226 

coooco 


STESTN: .WORD 

ATESTN 

• 

4 

TEST NUMBER 
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001230 000000 
001232 000000 
001234 000000 
001236 000000 
001240 000000 
001242 

001242 000 
001243 000 
001244 000000 
001246 000000 
001250 000000 


001252 

001253 


001254 000000 


001256 

001257 

001260 

001262 

001263 

001264 

001266 

001267 

001270 

001272 

001274 

001276 

001300 

001302 

001304 

001306 



001316 

001320 

001322 

001324 

001326 


120254 

000000 

176700 


' tVWt 

yy + yy 

MM* 


000000 

000000 

000000 


SPASS: 

SDEVCT: 

SUNIT : 

SMSGAD: 

SMSGLG : 

SETABLE: 

SENV: 

SENVM: 

SSUREG: 

SUSUR: 

SCPUOP: 


.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.BYTE 

.BYTE 

.WORD 

.WORD 

.WORD 


APASS 
ADEVCT 
AUNIT 
AMSGAD 
AMS GIG 

AENV 

AENVM 

ASUREG 

AUSUR 

ACPUOP 


iMAMSI 
SMTYP1 ; 


.BYTE 

.BYTE 


AMAMS1 

AMTYP1 


iMADRI: 

Imams 2 : 
SMTYP2: 
SMADR2: 
SMAMS3: 
SMTYP3: 
SMADR3: 
SMAMS4: 
SMTYP4: 
SMADR4: 
SVECT1 : 
SVECT2: 
S8ASE: 


.WORD AMA0R1 



SETENO: 

.MEXIT 


.BYTE 

.BYTE 

.WORD 

-BYTE 

.BYTE 

.WORD 

.BYTE 

.BYTE 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 


AMAMS2 

AMTYP2 

AMADR2 

AMAMS3 

AMTYP3 

AMADR3 

AMAMS4 

AMTYP4 

AMADR4 

AVECT1 

AVECT2 

ABASE 

ADEVM 

ACDW1 

ACDW2 

ADDWO 

ADDWl 

ADDW2 

ADDW3 

ADDW4 

ADDW5 

ADDW6 

ADDW7 


E 3 


SEO 0030 


; ;PASS COUNT 
;; DEVICE COUNT 
; ; I/O UNIT NUMBER 
;; MESSAGE ADDRESS 
.-.‘MESSAGE LENGTH 
; ;APT ENVIRONMENT TABLE 
; ; ENVIRONMENT BYTE 
.‘.‘ENVIRONMENT MODE BITS 
;;APT SWITCH REGISTER 
.‘.‘USER SWITCHES 
;;CPU TYPE.OPTIQNS 
BITS 15-11= CPU TYPE 

1 1 / 04*01 ,11/05=02,11 /20=03 , 1 1 /40=04 ,11/45=05 
11/70=06,PDQ=07.Q=10 
BIT 10=REAL TIME CLOCK 
BIT 9=FL0ATING POINT PROCESSOR 
BIT 8=MEM0RY MANAGEMENT 
; .‘HIGH ADDRESS, M.S. BYTE 
;;MEM. TYPE.BLKfl 
MEM. TYPE BYTE — (HIGH BYTE) 

900 NSEC CORE-OOl 
300 NSEC BIP0LAR=002 
500 NSEC MOS=003 
;;H1GH ADDRESS. BLKfl 

MEM. LAST ADDR.=3 BYTES. THIS WORD AND LOW OF ‘’TYPE’* ABOVE 
;;HIGH ADDRESS, M.S. BYTE 
;;MEN.TYPE,BLK#2 
;; MEM. LAST ADDRESS ,BLK#2 
.‘.‘HIGH ADDRESS, M.S. BYTE 
;. MEM. TYPE ,BLK#3 
;;MEM.LA$T ADDRESS, BLKf 3 
; ;HIGH ADDRESS, M.S. BYTE 
;; flEN. TYPE ,81K#4 
; ; MEM. LAST ADDRESS, BLK#4 
;; INTERRUPT VECTORfl.BUS PRIORI TY#1 
; ; INTERRUPT VECT0R#2BUS PRI0RITY#2 
;;BASE ADDRESS OF EQUIPMENT UNDER TEST 
;; DEVICE MAP 

;; CONTROLLER DESCRIPTION WORDfl 
;; CONTROLLER DESCRIPTION W0RD#2 
.’.‘DEVICE DESCRIPTOR WORDfO 
;; DEVICE DESCRIPTOR WORDfl 
;; DEVICE DESCRIPTOR W0RD#2 
.-.’DEVICE DESCRIPTOR W0RD#3 
.’.‘DEVICE DESCRIPTOR W0RD#4 
; .’DEVICE DESCRIPTOR W0RD#5 
..‘DEVICE DESCRIPTOR W0RD#6 
.’.‘DEVICE DESCRIPTOR W0RD#7 
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.S8TTL USER DEFINED TAGS 


F 3 


SEG 0031 


001326 

000000 

AUTSIZ: 

.WORD 

001330 

000000 

CHGADR : 

.WORD 

001332 

000000 

XXDP: 

.WORD 

001334 

001335 

000 

015 

LSTRK: 

.BYTE 

.BYTE 


001336 


001336 

001340 

001342 

001344 

001346 

001350 

001352 

001354 

001356 

001360 

001362 

001364 

001366 

001370 

001372 

001374 

001376 

001400 

001402 

001404 

001406 

001410 


001412 


001412 

001414 

001416 

001420 

001422 

001424 

001426 

001430 

001432 

001434 

001436 


000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 


000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 


0 

0 

0 


0 

13. 


Alloy AUTO DRIVE SIZING = 0, USE MANUALLY INPUT DRIVES 
CHANGE RH/RM BUS ADDRESS = -1 , NO CHANGE = 0 
THE LOU Bi'TE CONTAINS THE DRIVE NUMBER FROM WHICH 
THE PROGRAM WAS LOADED. THE HIGH BYTE CONTAINS THE 
'XXDP' DEVICE CODE FOR THE RM80. 

LO BYTE = 0 

HI BYTE, CONTAINS LAST TRACK ADDRESS OF UNIT 
UNDER TEST. RM80 = 13. 


- 1 


;THE REGISTER INPUT BUFFER IS USED FOR 
.•STORING DRIVE STATUS 


GETBUF : 

.■REGISTER INPUT BUFFER 
RMCS11: .WORD 0 

RMWCI: .WORD 0 

RMBAI : .WORD 0 

RMDAI: .WORD 0 

RMCS2I: .WORD 0 

RMDSI: .WORD 0 

RMER1I: .WORD 0 

RMASI : .WORD 0 

RMLAi: .WORD 0 

RMDSI: .WORD 0 

RMMR1I : .WORD 0 

RMDTI: .WORD 0 

RMSNI : .WORD 0 

RMOFI: .WORD 0 

RMDCI: .WORD 0 

RMHRI : .WORD 0 

RMHR2I: .WORD 0 

RMER2I : .WORD 0 

RMEC1I : .WORD 0 

RMEC2I: .WORD 0 

RMBAEI: .WORD 0 

RMCS3I: .WORD 0 


CONTROL, STATUS REGISTER #1 
WORD COUNT REGISTER 
BUS ADDRESS REGISTER 
DISK ADDRESS REGISTER 
CONTROL. STATUS REGISTER *2 
DRIVE STATUS RE6ISTER 
ERROR RE6ISTER #1 
ATTENTION SUMMARY REGISTER 
LOOK AHEAD RE6ISTER 
DATA BUFFER 

MAINTENANCE RE6ISTER #1 
DRIVE TYPE REGISTER 
SERIAL NUMBER RE6ISTER 
OFFSET REGISTER 
DESIRED CYLINDER REGISTER 
HOLDING REGISTER 
MAINTENANCE REGISTER #2 
ERROR RE6ISTER #2 
ECC POSITION RE6ISTER 
ECC PATTERN RE6ISTER 
BUS ADDRESS EXTENSION REGISTER 
CONTROL, STATUS REGISTER #3 


;THE REGISTER OUTPUT BUrFER IS USED FOR 
.•ASSEMBLING DATA GOING TO REGISTER 


PUTBUF: 

.•REGISTER OUTPUT BUFFER 
RMCS10: .WORD 0 

RMWCO: .WORD 0 

RMBAO: .WORD 0 

RMDAO: .WORD 0 

RMCS20: .WORD 0 

RMDSO: .WORD 0 

RMER10: .WORD 0 

RMASO: .WORD 0 

RMLAO: .WORD 0 

RMDBO: .WORD 0 

RMHRI 0: .WORD 0 


CONTROL. STATUS REGISTER #1 
WORD COUNT REGISTER 
BUS ADDRESS REGISTER 
DISK ADDRESS REGISTER 
CONTROL, STATUS REGISTER #2 
DRIVE STATUS REGISTER 
ERROR REGISTER *1 
ATTENTION SUMMARY REGISTER 
LOOK AHEAD REGISTER 
DATA BUFFER 

MAINTENANCE REGISTER #1 


G 3 
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OOKAO 
0014A2 
001 AAA 
001 AA6 
001 A50 
001452 
001A5A 
001A56 
001 A60 
001 A62 
001 A6A 


000000 

000000 

000000 

OOOOOO 

oooooo 

OOOOOO 

oooooo 


oooooo 


001 A66 OOOOOO 
001 A70 

001510 OOOOOO 


001512 
001 51A 
001516 
001520 
001522 
001 52A 
001526 
001530 
001532 
001 53A 
001536 
001 5A0 


1725A0 
1725A2 
0001 OA 
000106 
1775A6 
000100 
000102 
OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 


RMDTO: 

RMSNO: 

RMOFO: 

RMDCO: 

RHHRO: 

RMMR20 

RMER20 

RMEC10 

RMEC20 

RMBAEO 

RHCS30 


.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 


DRIVE TYPE REGISTER 

SERIAL NUMBER REGISTER 

OFFSET REGISTER 

DESIRED CYLINDER REGISTER 

HOLDING REGISTER 

MAINTENANCE REGISTER #2 

ERROR REGISTER #2 

ECC POSITION REGISTER 

ECC P/TTEP-'I REGISTER 

BUS ADDRESS EXTENSION REGISTER 

CONTROL, S1ATUS REGISTER #3 


EACH WORD OF THE TEST QUE CONTAINS THE DEVICE NUMBER IN 
THE LOW BYTE AND THE ATTENTION BIT IN THE HIGH BYTE. THE 
FIRST WORD CONTAINS THE ADDRESS OF THE DEVICE UNDER TEST 
IN THE TABLE. A ZERO WORD IS A BLANK AND REPRESENTS THE 
END OF THE QUE. 


TSTQUE: .WORD 0 
.8LKW 8. 
.WORD 0 


SLPCSR: 

SLPCSB: 

SLPVEC: 

SLLCSR: 

SLLVEC: 

SPSW: 

TIME: 

WATCH: 

CLOCK: 

STOPCL: 


.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 


1725A0 

1725A2 

10A 

106 

1775A6 

100 

102 


CONTAINS DEVICE POINTER 
TEST QUE FOR DEVICES UNDER TEST 
TABLE TERMINATOR GOES HERE WHEN 
ALL 8. DEVICES ARE UNDER TEST. 

KW11-P CONTROL ♦ STATUS REGISTER 
KW11-P COUNT SET BUFFER 
KW11-P INTERRUPT VECTOR 

KW11-L CONTROL ♦ STATUS REGISTER 
KW11-L INTERRUPT VECTOR 

STORAGE FOR PRIORITY 
STORAGE FOR ELAPSED TIME 
STORAGE FOR REMAINING TIME 
ADDRESS OF START CLOCK SUB 
ADDRESS OF STOP CLOCK SUB 


;PUT TAGS HERE 
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.S8TTL ERROR POINTER TABLE 


SEQ 0033 


•THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR TK*T CAN OCCUR. 

•THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 

•LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 
•N0TE1: IF SITEMB IS 0 THE ONLY PERTINENT DATA IS <$ERRPC>. 

•NOTE 2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOlLOWS: 

* EM ; .-POINTS TO THE ERROR MESSAGE 

* DH ;; POINTS TO THE DATA HEADER 

* DT ;; POINTS TO THE DATA 

* DF ; ;POINTS TO THE DATA FORMAT 


001542 


001542 

001544 

001546 

001550 


032244 

040152 

040266 

040322 


SERRTB: 

; ERROR 1 


CANNOT CLEAR NED STATUS 


001552 

001554 

001556 

001560 


032252 

040156 

040270 

040324 


.-ERROR 2 


CANNOT READ OR WRITE ANY DEVICE REG WITHOUT NED 


001562 

001564 

001566 

001570 


032300 

000000 

000000 

000000 


.-ERROR 3 


CANNOT WRITE/READ ONES TO ANY DEVICE REGISTER 


001572 

001574 

001576 

001600 


032320 

000000 

000000 

000000 


.-ERROR 4 


CANNOT CLEAR ANY DEVICE REGISTER BITS W/MASS8US INIT 


001602 

001604 

001606 

001610 


032342 

040162 

040272 

040326 


.-ERROR 5 


CANNOT WRITE/READ ZEROS TO ALL BIT POSITIONS 


.-ERROR 6 


CANNOT WRITE/READ ONES TO ALL BIT POSITIONS 


SEO 0034 
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001612 032366 
001614 040162 
001616 040272 
001620 040326 


EMT6 

EHT5 

EDT5 

EFT5 


3 



.ERROR 7 CANNOT WRITE/REAO SHIFTING ONE BIT TO ALL BIT POSITIONS 
• OF DEVICE REGISTERS 

EMT 7 
EHT7 
EDT5 
EFTS 


.-ERROR 10 REGISTER SELECT 1 APPEARS S-A-0 

EMTIO 

0 

0 

0 


.-ERROR 11 REGISTER SELECT 1 APPEARS S-A-1 

EMT11 

0 

0 

0 


.ERROR 12 REGISTER SELECT 2 APPEARS S-A-0 

EMT12 

0 




59 

60 
61 


.•ERROR 24 


PAGE 8-2 


J 3 


SEO 0035 


REGISTER SELECT 8 APPEARS S-A-0 


REGISTER SELECT 8 APPEARS S-A-1 


OPI SET WITH SEACH TIMOUT DISABLED 


OPI SET WITH SECTOR PULSE. SECTOR COMPARE WAS RESET 


DTE SET WITH INDEX PULSE. SEARCH WAS NOT ENABLED 


DTE SET WITH SECTOR PULSE. SECTOR COMPARE WAS RESET 


DTE DID NOT SET WITH SECTOR PULSE. SECTOR COMPARE WAS SET 


j 


atu vu 
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001772 032726 
001774 040152 
001776 040266 
002000 040322 
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EMT24 

EHT1 

EDT1 

EFT1 


002002 

002004 

002006 

002010 


032752 

040152 

040266 

040322 


: ERROR 25 


EMT25 
EHT1 
EDT1 
EFT 1 


DTE SET WITH SECTOR PULSE DURING FORMAT CHANGE 


002012 

002014 

002016 

002020 


032772 

000000 

000000 

000000 


.■ERROR 26 MBA CLR L IS STUCK ACTIVE 

EMT26 

0 

0 

0 


002022 

002024 

002026 

002030 


033024 

040152 

040266 

040322 


.•ERROR 27 


EMT27 

EHT1 

EDT1 

EFT1 


COULD NOT SET DTE AFTER FORMAT CHANGE 


002032 

002034 

002036 

002040 


033044 

040152 

040266 

040322 


; ERROR 30 


EMT30 

EHT1 

EDT1 

EFT1 


CANNOT SET PROM STROBE WITH BIT CLOCK 


002042 

002044 

002046 

002050 


033064 

040152 

040266 

040322 


.•ERROR 31 


EMT31 

EHT1 

EDT1 

EFT1 


CANNOT CLEAR RMER1.DTE 


002052 

002054 

002056 

002060 


033100 

040152 

040266 

040322 


.•ERROR 32 


EMT32 

EHT1 

EDT1 

EFT1 


PROM STROBE RESET EARLY 


002062 033112 


.•ERROR 33 PROM STROBE SET EARLY 
EMT33 


SEQ 0037 
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002064 040152 
002066 040266 
002070 040322 
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002072 

002074 

002076 

002100 


033124 

040152 

040266 

040322 


.-ERROR 34 


EMT34 
EHT1 
EOT 1 
EFT1 


LOOKING FOR SYNC SET EARLY 


002102 

002104 

002106 

002110 


033136 

040152 

040266 

040322 


.•ERROR 35 


EMT35 

EHT1 

EDT1 

EFT1 


LOOKING FOR SYNC DID NOT SET 


002112 

002114 

002116 

002120 


033150 

040152 

040266 

040322 


.•ERROR 36 


EMT36 

EHT1 

EDT1 

EFT1 


PROM STROBE SET WHILE LOOKING FOR SYNC 


002122 

002124 

002126 

002130 


033170 

040226 

040312 

040340 


.•ERROR 37 


SYNC DETECTED WITH WRONG PATTERN 


ENT37 

EHT115 

EDT115 

EFT115 


002132 

002134 

002136 

002140 


033220 

040152 

040266 

040322 


.•ERROR 40 


ENT40 

EHT1 

EDT1 

EFT1 


SYNC NOT DETECTED 


002142 

002144 

002146 

002150 


033242 

040152 

040266 

040322 


; ERROR 41 


EMT41 

EHT1 

EDT1 

EFT1 


DRIVE TIMING ERROR DID NOT CLEAR LOOKING FOR SYNC 


002152 

002154 


033270 

040152 


.•ERROR 42 


EMT42 

EHT1 


WRITE GATE DID NOT COME ON OR RESET EARLY 


SEQ C038 
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002162 

002164 

002166 

002170 


033306 

000000 

000000 

000000 


.•ERROR 43 


EMT43 

0 

0 

0 


INCORRECT SYNC PATTERN DURING HEADER 


002172 

002174 

002176 

002200 


033306 

040166 

040272 

040326 


.-ERROR 44 


EMT43 

EHT7 

EDT5 

EFTS 


INCORRECT SYNC PATTERN DURING HEADER 


002202 

002204 

002206 

002210 


033340 

040152 

040266 

040322 


.•ERROR 45 


EMT45 

EHT1 

EDT1 

EFT1 


HEADER AREA DID NOT COME ON OR RESET EARLY 


002212 

002214 

002216 

002220 


033354 

040152 

040266 

040322 


.•ERROR 46 


EMT46 

EHT1 

EDT1 

EFT1 


CRC ENABLE DID NOT SET 


002222 

002224 

002226 

002230 


033370 

040172 

040274 

040322 


.•ERROR 47 


EMT47 

EHT47 

EDT47 

EFT1 


INCORRECT HEADER GENERATED DURING URITE 


002232 

002234 

002236 

002240 


033406 

040152 

040266 

040322 


.•ERROR 50 


EMT50 

EHT1 

EDT1 

EFT1 


READ GATE INCORRECT DURING HEADER AREA 


002242 

002244 

002246 


033424 

040152 

040266 


.•ERROR 51 


EMT51 

EHT1 

EDT1 


UNEXPECTED HEADER ERROR DURING DIAGNOSTIC MODE 


26 


1 

I 

i 


N 3 
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002250 040322 EFT1 


125 

126 
127 


002252 

002254 

002256 

002260 


128 

129 

130 


002262 

002264 

002266 

002270 


131 

132 

133 


002272 

002274 

002276 

002300 


134 

135 

136 


002302 

002304 

002306 

002310 


137 

138 

139 


002312 

002314 

002316 

002320 


140 

141 

142 


002322 

002324 

002326 

002330 


143 

144 

145 


002332 

002334 

002336 

002340 


033440 

040176 

040276 

040330 


040030 

040152 

040266 

040322 


033472 

040152 

040266 

040322 


033510 

040152 

040266 

040322 


033526. 

040152 

040266 

040322 


033542 

040202 

040300 

040330 


033556 

040152 

040266 

040322 


.•ERROR 

52 

INCORRECT HEADER READ IN DIAGNOSTIC MODE 


EMT52 

EHT52 

EDT52 

EFT57 


; ERROR 

53 

INCORRECT TAG BUS DURING DATA COMMAND 


EMT276 

EHT1 

EDT1 

EFT1 


; ERROR 

54 

DATA TIMING SEQUENCER CONTROLS INCORRECT DURING DATA COMMAND 


EMT54 

EHT1 

EDT1 

EFT1 


.•ERROR 

55 

DATA AREA DID NOT COME ON OR RESET EARLY 


EMT55 

EHT1 

E0T1 

EFT1 


.-ERROR 

56 

ECC ENABLE DID NOT SET 


EMT56 

EHT1 

E0T1 

EFT1 


.•ERROR 

57 

DEVICE IS NOT AN RM80 


EMT57 

EHT57 

EDT57 

EFT57 


.•ERROR 

60 

DEVICE AVAILABLE IS NOT SET 


EMT60 

EHT1 

EDT1 

EFT1 



SE3 0- 


l 


i 



B 4 
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146 

147 

148 


002342 

002344 

002346 

002350 


149 

150 

151 


002352 

002354 

002356 

002360 


152 

153 

154 


002362 

002364 

002366 

002370 


155 

156 

157 


002372 

002374 

002376 

002400 


033572 

040206 

040302 

040330 


033610 

040152 

040266 

040322 


033626 

040152 

040266 

040322 


033640 

040152 

040266 

040322 


158 

159 


00240? 

033654 

002404 

040152 

002406 

040266 

002410 

040322 

161 


162 


163 


002412 

033666 

0024H 

000000 

002416 

000000 

002420 

000000 

16* 


165 


160 

002422 

033702 

002424 

000000 

002426 

000000 

002430 

000000 


.-ERROR 61 


EMT61 

EHT61 

EDT61 

EFT57 


; ERROR 62 


EMT62 

EHT1 

EDT1 

EFT1 


.•ERROR 63 


EMT63 

EHT1 

EDT1 

EFT1 


.■ERROR 64 


EMT64 

EHT1 

EDT1 

EFT1 


.•ERROR 65 


EMT65 

EHT1 

EDT1 

EFT7 


.•ERROR 66 


EMT66 

0 

0 

0 


.•ERROR 67 


INCORRECT ECC PATTERN GENERATED DURING WRITE 


CANNOT CLEAR PROM STROBE WITH BIT CLOCK 


DATA AREA DID NOT RESET 


UNEXPECTED ECC ERROR IN DIAGNOSTIC MODE 


INCORRECT DATA TRANSFERRED TO MEMORY 


EMT67 

0 

0 

0 
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167 

168 

169 

002432 033720 
002434 000000 
002436 000000 
002440 000000 

170 

171 

172 

002442 033740 
002444 000000 
002446 000000 
002450 000000 



175 


002452 033764 
002454 000000 
002456 000000 
002460 000000 



178 


002462 034010 
002464 000000 
002466 000000 
002470 000000 


179 

180 
181 


002472 034030 
002474 000000 
002476 000000 
002500 000000 



184 


002502 034040 
002504 000000 
002506 000000 
002510 000000 


185 


186 


187 


002512 034052 
002514 000000 
002516 000000 
002520 000000 
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.•ERROR 70 

EMT70 

0 

0 

0 


.•ERROR 71 

EMT71 

0 

0 

0 


.•ERROR 72 

EMT72 

0 

0 

0 


.•ERROR 73 

EMT73 

0 

0 

0 


.•ERROR 74 

EMT74 

0 

0 

0 


.•ERROR 75 

EMT75 


; ERROR 76 

|MT76 

0 

0 


188 


C 4 


SEQ 0041 
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0 4 


SEQ 0042 


189 

190 


002522 034066 
002524 000000 
002526 000000 
002530 000000 


191 

192 

193 


002532 

002534 

002536 

002540 


194 

195 

196 


002542 

002544 

002546 

002550 


197 

198 

199 


002552 

002554 

002556 

002560 


200 

201 

202 


002562 

002564 

002566 

002570 


203 

204 

205 


002572 

002574 

002576 

002600 


206 

207 

208 


002602 

002604 

002606 

002610 


035674 

040252 

040312 

040340 


040010 

040152 

040266 

040322 


034142 

040152 

040266 

040322 


035740 

040252 

040312 

040340 


035762 

000000 

000000 

000000 


036010 

040152 

040266 

040322 


.•ERROR 77 


EMT77 

0 

0 

0 


.•ERROR 100 CANT SET VOLUME VALID 

EMT170 

EHT150 

EDT115 

EFT115 

.•ERROR 101 RUN AND GO WONT SET 

EMT275 

EHT1 

EDT1 

EFT1 

.•ERROR 102 SEARCH ENABLE WONT SET 

EMT102 

EHT1 

EDT1 

EFT1 

.•ERROR 103 OCCUPIED IS INCORRECT FOR FUNCTION CODE 

EMT1 73 
EHT150 
EDT115 
EFT115 


.•ERROR 104 READ IN PRESET DIDNT CLEAR RMDA. RMDC OR RHOF 

EF 
0 

8 


EMT174 

0 


; ERROR 105 READ IN PRESET DIDNT CLEAR RMOF 

EMT175 

EHT1 

EDT1 

EFT1 


209 

210 


.•ERROR 106 READ IN PRESET DIDNT CLEAR RMDA 
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E 4 


.EO 0043 


211 


002612 

002614 

002616 

002620 


212 

213 

214 


002622 

002624 

002626 

002630 


215 

216 
217 


002632 

002634 

002636 

002640 


036026 

040152 

040266 

040322 


040134 

040152 

040266 

040322 


036046 

040152 

040266 

040322 


218 

219 


EMT176 

EHT1 

EDT1 

EFT1 


; ERROR 107 READ IN PRESET DiDNT CLEAR RMDC 

EMT302 

EHT1 

EDT1 

EFT1 


; ERROR 110 CANT SET OFFSET MODE 8V OFFSET COMMAND 

EMT200 

EHT1 

EDT1 

EFT1 


;PUT ERROR TABLE HERE 
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F 4 


SEO 0044 


1 

3 002642 

4 002644 

5 002646 

6 002650 
002654 

002714 

7 002714 

8 002716 

9 002720 

10 
11 
12 

13 

14 002722 

15 002730 

16 

17 002732 

18 002736 

19 002740 

20 002744 

21 002746 

22 
23 

002750 

002754 

002756 

002762 

002764 

002770 

002776 

003004 

003012 

003020 

003026 

003034 

003042 

003050 

003056 

003062 

003066 

003074 

003102 


003110 

003114 

003122 

003130 

003136 

003144 


011600 

005740 

022626 

104401 

000417 


010046 

104402 

000240 


012737 

000402 

005037 

000240 

005227 

001375 

000005 


012706 

005026 

022706 

001374 

012706 

012737 

012737 

0^737 

012737 

012737 

012737 

012737 

012737 

013737 

005037 

005037 

112737 

012737 

012737 


013746 

012737 

012737 

012737 

022777 

9010 ^ 


002656 


.-THIS ROUTINE HANDLES UNEXPECTED TIMEOUTS 

BADTMO: MOV (SP).RO ;SAVE PC WHERE THE TIME OUT OCCl'RED 

TST -<R0) ; ADJUST PC -2 

CMP <SP)M$P>* .-RESTORE STACK POINTER 

TYPE .65$ ;;TYPE ASCJZ STRING 

BR &4$ :;GET OVER THE ASCIZ 

.ASCIZ <crlf>/unexpected bus timeout, pc=/ 


;;65$: 

6h, 


MOV 

TYPOC 

NOP 


RO. -(SP) 


.SBTTL START OF PROGRAM 


177777 001330 START1 


MOV 

BR 


001330 

000000 


001114 

001154 

001100 

025054 

000340 

025604 

000340 

030610 

000340 

030716 

000740 

021212 

001206 

001210 

000001 

003074 

003102 


000004 

003150 

177570 

177570 

177777 


START: CLR 
START2: NOP 
INC 
BNE 
RESET 


#-1.CHGADR 

START2 

CHGADR 

#0 

.-4 


; SETUP FOR TYPING OUT PC 

;PUT 'HALT(O) ' INSTRUCTION HEHE IF YOU WISH 
;T0 STOP ON UNEXPECTED TIMEOUT. 


.-CHANGE RH/RM BUS ADDRESS 


;N0 CHANGE IN ADDRESS 

;TTY LOOP. WAIT FOR INCREMENT 
;0F WORD 

.-RESET THE WORLD 


.SBTTL INITIALIZE THE COMMON TAGS 
;; CLEAR THE COMMON TAGS (SCMTA6) AREA 


000020 

000022 

000030 

000032 

000034 

000036 

000024 

000026 

021204 


001131 

001122 

001124 


000004 

001154 

001156 

176010 


MOV 
CLR 
CMP 
BNE 
MOV 

;; INITIALIZE 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
CLR 
M0V8 
MOV 
MOV 


#$CMTAG.R6 
(R6) + 

ASWR.R6 

fSTACK.SP 
FEW VECTORS 
fSSCOPE ,8#I0TVE 
#340,B#fOTVEC*< 


; .-FIRST LOCATION TO BE CLEARED 
..-CLEAR MEMORY LOCATION 
.-DONE? 

.-LOOP BACK IF NO 
.-SETUP THE STACK POINTER 


C ;;IOT VECTOR FOR SCOPE ROUTINE 

#$ER^0Rt5iEMTVEC , ;;EMf L VECT0R FOR ERROR ROUTINE 
#340.B#EMTVEC*2 ; .-LEVEL 7 
#$TRAP,»#TRAPVEC ;;TRAP VECTOR FOR TRAP CALLS 
#340, 8#TRAPV£C+2; LEVEL 7 
#$Pw£dN.9#PWRVEC ; .-POWER FAILURE VECTOR 
#340,B#PWRVEC+2 .-.LEVEL 7 

SENOfr.fEOPCT .-.-SETUP END -OF -PROGRAM COUNTER 
STINES INITIALIZE NUMBER OF ITERATIONS 

SESCAPE .-.-CLEAR THE ESCAPE ON ERROR ADDRESS 

fl.SERMAX ; .-ALLOW ONE ERROR PER TEST 

#.;$LPADR ;; INITIALIZE THE LOOP ADDRESS FOR SCOPE 

#.,$LPERR ;;SE TUP THE ERROR LOOP ADDRESS 

.-.SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
; .-EQUAL TO A ’ -1 , SETUP FOR A SOfTWARE SWITCH REGISTER. 


003146 000403 


MOV B#ERRVEC,-(SP> 

MOV #64$,8#EfaVEC 

MOV fDSWR.SWR 

MOV fDDISP, DISPLAY 

CMP #-1,8SWR 

BNE 66$ 

BR 65$ 


;,*SAVE ERROR VECTOR 
-.-SET UP ERROR VECTOR 
.-.-SETUP FOR A HARDWARE SWICH REGISTER 
.-.-AND A HARDWARE DISPLAY REGISTER 
;;1RY TO REFERENCE HARDWARE SWR 
.- •BRANCH IF NO TIMEOUT TRAP OCCURRED 
.-.-AND THE HARDWARE SWR IS NOT = -1 
; .-BRANCH IF NO TIMEOUT 
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SEQ 0045 


002150 

003154 

003156 

003164 

003172 

003176 

003202 

003210 

003212 

003220 

24 

25 003220 

26 003226 

27 

28 

003234 

003240 

003242 

003250 

003252 

003256 

003326 

003326 

003332 

003334 

003342 

003344 

003352 

003354 

003356 

003360 

003366 


32 

33 003366 

34 003372 

35 003400 

36 003402 

37 003410 

38 003416 

39 003420 

40 003424 

41 003430 

42 003432 
003436 

C03464 

43 003464 

44 003466 

45 003472 

46 003474 


012716 
000002 
012737 
Cl 2737 
012637 

005037 

132737 

001403 

012737 


012737 

012737 


005227 

001032 

022737 

001426 

104401 

000423 


005737 

001012 

123727 

001406 

023727 

001005 

104407 

000403 

112737 


005037 

122737 

001121 

013737 

122737 

103CO2 

105037 

005737 

001425 

104401 

000412 


005046 

113716 

104403 

001 


003156 

000176 001154 
000174 001156 
000004 

001230 

000200 001243 
001244 001154 


002642 000004 
000300 000006 


177777 

021354 000042 
003260 


000042 

001242 000001 
001154 000176 


000001 001150 


001332 

000016 000041 

000040 001332 
000007 001332 

001332 

000042 

003440 


001332 


#65$, (SP) 

#SWREG,SWR 
fDISPREG.DI SPLAY 
(SP)*.a#ERRVEC ; 

tpACC 

fAPTSIZE ,$ENVM ; 
67$ 

#SSWREG,SWR 


.SETUP •TIMEOUT** TRAP VECTOR FOR 
MOV #8ADTM0,ERRVEC 

MOV #PR6.ERRVEC*2 


; SET UP FOR TRAP RETURN 

;; POINT TO SOFTWARE SWR 

.•RESTORE ERROR VECTOR 

;; CLEAR PASS COUNT 
r ; TEST USER SIZE UNDER APT 
YES, USE NON-APT SWITCH 
;;NO,USE APT SWITCH REGISTER 

UNEXPECTED BUS TIMEOUTS 
; SETUP FOR UNEXPECTED TIMEOUT 
r LEVEL 6 


.S8TTL TYPE PROGRAM NAME 
;;TYPE THE NAME OF THE PROGRAM 


INC #-1 

BNE 68$ 

CM P #$ENDAD.B#42 

BEO 68$ 

TYPE .69$ 

BR 68$ 

.ASCIZ <CRLF>BCZRNCAO 


;;69$: 

66 $: 


IF FIRST PASS 
;; FIRST TIME? 

; .-BRANCH IF NO 
; .-ACT-11? 

; .-BRANCH IF YES 
.-.-TYPE ASCIZ STRING 
;;GET OVER THE ASCIZ 
- ftM80 DISKLESS TEST, PT 2B<CRLF> 


GET VALUE FOR SOFTWARE 

SWITCH REGISTER 

TST 

a#42 

.-.-ARE WE RUNNING UNDER XXDP/ACT? 

BNE 

70S 

; .-BRANCH IF YES 

CMPB 

$ENV,#1 

; .-ARE WE RUNNING UNOER APT? 

BEO 

70S 

; .-BRANCH IF YES 

CMP 

SWR.fSWREG 

;; SOFTWARE SWITCH REG SELECTED? 

BNE 

7 IS 

.-.-BRANCH IF NO 

GTSWR 


.-.-GET SOFT-SUR SETTINGS 

BR 

71$ 


MOVB 

fl.SAUTOB 

;;SET AUTO-MODE INDICATOR 


.-THE FOLLOWING FINDS OUT THE PROGRAM CONTROL MODE: 

.-PAPER TAPE (MANUAL), ACTT1 , XXDP CHAIN OR DUMP 

CLR XXDP .-CLEAR ’XXDP* LOAD DEVICE STORAGE 

CMPB #16,a#41 .-LOADED FROM AN RM80 ? 

BNE 3$ ;BR IF NOT 

MOV a#40.XXDP ;GET DEVICE INDICATOR AND NUMBER 

CMPB #7, XXDP ;IS IT A VALID NUMBER ? 

BHIS 1$ ; YES 

CLRB XXDP ;N0. DEFAULT TO DRIVE 0 

1$: TST a#4 2 ; CHAIN MODE OR ACT11 AUTO ACCEPT ? 

BEQ 2$ ;8R IF NEITHER 

TYPE .73$ ; ; TYPE ASCIZ STRING 

BR ;;GET OVER THE ASCIZ 

* -73$: .ASCIZ <CRLF>/NOT TESTING DRIVE / 

55$. 

CLR -(SP) .'CLEAR WORD ON STACK 

M0V8 XXDP, (SP) .'GET DRIVE ADDRESS 

TYPOS ;TYPE THE ADDRESS 

.BYTE 1 .'ONLY 1 CHARACTER 


I 
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SEQ 0046 


47 003475 

48 003476 

49 003502 

50 

51 003504 

52 003510 

53 003512 


000 

104401 

000460 

005227 

001055 

104401 


003516 000410 


003540 

54 003540 

55 003542 

56 003546 

57 003550 

58 003551 

59 003552 
003556 

003644 

63 

64 

65 003644 

66 003650 

67 003654 

68 003656 

69 

70 

71 003664 

72 003664 

73 003672 

74 

75 003674 

76 003676 

77 003702 

78 

79 003706 

80 003714 

81 003716 

82 003722 
003724 
003726 
003727 

83 003730 

84 

85 003734 

86 003742 

87 003746 

88 003752 

89 003760 

90 003762 

91 003770 

92 003772 

93 004000 

94 004006 

95 004010 

96 004016 

97 004020 


005046 

113716 

104403 

001 

000 

104401 

000432 


005037 

005737 

001537 

012737 


132737 

001124 

005001 

013700 

104401 

136137 

001507 

104401 

010146 

10440? 

002 

000 

104401 

012760 

010160 

005760 

032760 

001027 

032760 

001426 

012737 

022760 

001407 

022760 

001403 

104401 


001217 


177777 

003520 


001332 


003560 


.BYTE 0 
TYPE .SCRLF 

BR H 


;SUPRESS LEADING ZEROS 
; CR-LF 

;GET NUMBER OF DRIVES 


;-75$: 


INC 

BNE 

TYPE 

BR 

.ASCIZ 

CLR 

HOVB 

TYPOS 

.BYTE 

.BYTE 

TYPE 

BR 

.ASCIZ 


#-1 .-FIRST TIME THRU HERE ? 

3S ;N0 

.75$ .-.TYPE ASCIZ STRING 

H$ ;;GET OVER THE ASCIZ 

<CRLF>/T0 TEST DRIVE / 

-(SP> .-CLEAR WORD ON STACK 

XXDP.(SP) .GET DRIVE ADDRESS 

.-TYPE DRIVE ADDRESS 
1 .-ONLY 1 CHARACTER 

0 .-SUPRESS LEADING ZEROS 

.76$ .-.TYPE ASCIZ STRING 

5$ .-.-GET OVER THE ASCIZ 

/. HALT PROGRAM. CLEAR LOC. 40 AND PESTART PROGRAM. /<CRLF> 


001326 

000042 

000377 001300 


000200 001243 


001276 

031770 

032234 001300 
001217 


.-CHECK FOR AUTO MODE OR STANDALONE MODE 


AUTSIZ 

B#42 

STANDALONE 

#377,$DEVH 


LET AUTO DRIVE SIZING OCCUR 
RUNNING IN AUTO MODE ? 

BA IF NO 

SET DEVICE MAP FOR ALL DRIVES 


032126 

000040 

000010 

000012 

010000 


000010 


000010 


004000 000000 


032006 

020026 


004132 

000026 


024026 000026 
032013 


.-PROGRAM IS RUNNING IN AUTO MODE - SEE IF SIZING IS ALLOWED 
XSIZ* 

BITS #BIT7,$ENVH .SIZING ALLOWED ? 

BNE 12$ ;N0 

CLR R1 .-START FROM DRIVE 0 

MOV IBASE.RO ;LOAD THE BASE ADDRESS 

TYPE .SYSTAT .-TYPE 'UNIT STATUS:* 

1$: BITS ATNT8L(R1),$DEVM ;IS DEVICE PRESENT IN HAP ? 

BEO 11$ ;BR IF NO 

TYPE .SCRLF .-CR-LF 

MOV ftl.-(SP) .-.-SAVE R1 FOR TYPEOUT 

TYPOS ;;60 TYPE— OCTAL ASCIi 

.BYTE 2 .-.TYPE 2 DIGIT(S) 

.BYTE 0 ;; SUPPRESS LEADING ZEROS 

TYPE .BLNKS4 .-TYPE 4 BLANKS 

MOV #CLR,RMCS2(R0) .-CLEAR MASS BUS 

MOV R1.RMCS2(R0) .-LOAD THE DRIVE ADDRESS 

TST RWS(RO) .-ACCESS DRIVE REGISTER 

BIT #N£D.RMCS2<R0> ;!S DRIVE PRESENT ? 

BNE 3$ ‘BR IF NO 

BIT #DVA.RHCS1 (RO) ;IS DRIVE AVAILABLE ? 

BEQ 4$ ;8R IF NO 

MOV #$RH80,10$ .-ASSUME RH80 DEVICE 

CMP # 20026. RMDT(RO) .SINGLE PORT RM80 ? 

BEO 2$ ;BR IF YES 

CMP #24026. RHOT (RO) ;DUAL PORT RMPO ? 

BEQ 2$ ;BR IF YES 

TYPE .NOTRH ; DRIVE NOT AN RM80 


#CLR,RMCS2(R0) 

R1.RMCS2CR0) 

RMDS(RO) 

#N£D.RMCS2(R0) 

3$ 

fDVA.RMCSI (RO) 
4$ 

#$RH80,10$ 
#20026. RMDT(RO) 

#24026. RHOT(RO) 
2 $ 

.NOTRM 


SEO 004 , 
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98 004024 

99 004026 

100 004034 

101 004036 

102 

103 004040 

104 004044 

105 

106 004046 

107 004052 

108 004056 

109 004060 

110 004066 

111 

112 004070 

113 004074 

114 

115 004076 

116 004102 

117 004104 

118 004110 

119 004112 

120 004116 

121 

122 004120 

123 004124 

124 004130 

125 004132 

126 

127 004134 

128 004136 

129 004142 

130 

131 004144 

132 004150 


000443 

032760 

001415 

000417 

104401 

000402 

104401 

005737 

001026 

146137 

000422 

104401 

000413 

005737 

001406 

123701 

001360 

104401 

000755 

104401 

104401 

104401 

000000 

005201 

020127 

003661 

104401 

000137 


010000 000012 


032045 


032062 

001326 

032234 001300 


032101 


001332 

001332 

032030 


032112 

032130 


000007 


001217 

004672 



BR 

11$ 

2S: 

BIT 

#MOL,RMDS(RO> 

BEO 

6$ 


BR 

7$ 

3$: 

TYPE 

.NOTPRS ; 

BR 

5 $ ; 

4$: 

TYPE 

.NOTAVL ; 

5$: 

1ST 

AUTSIZ j 


BNE 

11$ 


BICB 

ATNTBLCR1 ) ,$DEVM 


BR 

11$ 

6$: 

TYPE 

.UNTOFF 

h 

BR 

7$: 

TST 

XXDP 


BEQ 

8$ 


CMP8 

XXDP.R1 


BNE 

5$ 


TYPE 

.LOOEV 


BR 

5 $ 

8$: 

TYPE 

, UN TON 

9$: 

TYPE 

TYPE 

.8LNKS2 

10$: 

.WORD 

0 

11$: 

INC 

R1 


CMP 

R1.A7 


BLE 

1$ 

12$: 

TYPE 

»$CRLF , 


JMP 

CNN START 


DRIVE NOT PRESENT 
CHECK NEXT DRIVE 

DRIVE NOT AVAILABLE 
AUTO SIZING ON ? 

BA I F NO 

:CLEAR DEVICE FROM BIT MAP 
CHECK NEXT DRIVE 

DRIVE OFFLINE 
PRINT DRIVE TYPE 

LOADED FROM RM80 ? 

NO 

IS THIS THE DRIVE ? 

BR IF NO 

DRIVE IS LOAD DEVICE 


.■DRIVE ONLINE 
.'TYPE 2 BLANKS 
.PRINT DRIVE TYPE 
.‘MESSAGE ADDRESS HERE 

.'INCREMENT THE DRIVE ADDRESS 
;ALl DRIVES ARE CHECKED ? 
.-BRANCH IF NOT 

.CR-LF 

.’JUMP TO COMMON START 
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J 4 


SEQ 004 E 


004154 

004154 

004160 

004164 


1 
2 

3 

4 

5 

6 

7 

8 
9 

10 

11 004166 

12 004172 

13 004174 

14 004200 

15 004206 

16 004210 

17 004214 

18 004220 

19 004222 

20 004226 

21 004232 

22 

23 

24 004234 

25 004234 

26 004240 

27 004242 

28 004246 

29 

30 

31 004252 

32 004252 

33 004256 
004262 

34 004264 

35 004270 

36 004272 

37 004276 

38 004300 

39 004306 

40 004310 

41 004314 

42 004316 

43 

44 004324 

45 004330 

46 004332 

47 004336 

48 004340 

49 004344 

50 004346 

51 004352 

52 004354 

53 004362 

54 004364 

55 004370 

56 004372 


004737 

005227 

001023 


104401 

104411 

012637 

123727 

001005 

104401 

104401 

000414 

104401 

104401 

000407 


005737 

001475 

005037 

104401 


104401 

013746 

104402 

104401 

104413 

012637 

001412 

022737 

101403 

104401 

000756 

013737 

104401 

005046 

113716 

104402 

104401 

104413 

012637 

001430 

022737 

101003 

104401 

000755 

113700 


027224 

177777 


.S8TTL STANDALONE INPUT ROUTINES 


STANDALONE : 

JSR 

INC 

BNE 


PC.STKINT .-INITIALIZE CONSOLE 

#-1 .-FIRST TINE THRU HERE ? 

2$ ;8R IF NO 


.-SEE IF OPERATOR WANTS HELP TEXT 


031360 


TYPE 

.NSHELP 

WANT HELP ? 



RDCHR 


GET RESPONSE 

001176 


NOV 

(SP)+. STNP1 

SAVE AND ECHO RESPONSE 

001176 000131 


CMP8 

STHPI ,#’Y 

WAS IT A YES RESPONSE ? 



BNE 

IS 

NO 

001176 


TYPE 

.STHPI 

TYPE 'Y* 

054420 


TYPE 

.HELP 

YES - TYPE HELP TEXT 



BR 

it 


032122 

IS: 

TYPE 

,N 

TYPE •N' 

001217 


TYPE 

.SCRLF 

■CR-LF 



BR 

Ss 



;SEE 

IF USER 

WANTS 10 CHANGE UNIBUS ADDRESS 


it: 




001330 


TST 

CHGAi)R 

CHANGE RH/RH BUS ADDRES 



BEO 

7$ 

BR IF NO 

001330 


CLR 

CHGADR 

NO CHANGE NEXT TIHE 

001217 


TYPE 

.SCRLF 

CR-LF 


031411 

001276 

032130 

001176 

160000 

031421 

001176 

031463 

001272 

032130 

001176 

001000 

031472 

001272 


001176 


001276 


4$: 

5S: 


TYPE 

NOV 

TYPOC 

TYPE 

RDOCT 

NOV 

BEO 

CNP 

BLOS 

TYPE 

BR 

NOV 


-CNSL01 

SBASE.-(SP) 

.8LNKS2 


: DIALOGUE TO CHANGE THE UN18US ADDRESS, VECTOR ADDRESS AND INTERRUPT PRIORITY 

SS: 

TYPE CURRENT BUS ADDRESS 
.-SAVE SBASE FOR TYPCOUT 
;60 TYPE— OCTAL ASCII (ALL DIGITS) 

TYPE 2 BLANKS 
6ET NEW BUS ADDRESS 
CARRIAGE RETURN ? 

YES-SKIP TO NEXT ENTRY 
BASE ADDRESS IN 1/0 PAGE ? 

YES 

TYPE WARNING NESSAGE 
TRY AGAIN 

STORE NEW BUS ADDRESS 


(SP> ♦.STHPI 
5$ 

#160000, STHPI 
4$ 

.CNSL02 

Ss 

STHPI .SBASE 


001176 


6S: 


TY PE 

CLR 

H0V8 

TYPOC 

TYPE 

RDOCT 

NOV 

BEO 

CNP 

BHI 

TYPE 

BR 

HOVB 


.CNSL03 

-(5P> 

SVECTI.(SP) 

.BLNKS2 

(SP )+. STHPI 
7S 

#1000. STHPI 
6S 

^NSL04 

SVECT1.R0 


;GET CURRENT VECTOR ADDRESS 

TYPE 2 BLANKS 

GET NEW VECTOR ADDRESS 

CARRIAGE RETURN? 

YES-SKIP TO NEXT ENTRY 
VECTOR ADDRESS < 1000 ? 
YES'! 

TYPE WARNING NESSAGE 
RETRY 

GET CURRENT VECTOR ADDRESS 
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SEQ 004V 


57 004376 

58 004402 

59 004404 

60 004410 

61 004412 

62 004416 

63 004422 

64 004426 

65 

66 

67 004434 

68 004440 

69 004442 

70 004446 

71 004452 

72 004456 

73 004462 

74 004464 

75 004470 

76 004476 

77 004500 

78 004504 

79 004512 

80 

81 004516 

82 004524 

83 004526 

84 004532 

85 004540 

86 004542 

87 004550 

88 004552 

89 

90 004554 

91 004556 

92 004562 

93 004570 

94 004572 

95 004576 

96 004602 

97 004610 

98 004612 

99 004620 

100 0*34622 

101 004626 

102 

103 004630 

104 004634 

105 004640 

106 004646 

107 004654 

108 004656 

109 004662 

110 004666 


042700 

005720 

010060 

005010 

013700 

012720 

113710 

113737 


005227 

001002 

104401 

104401 

005037 

104401 

104411 

012637 

023727 

001007 

104401 

012737 

000137 

023727 

001436 

104401 

023727 

002430 

023727 

003427 

000423 

104411 

012637 

023727 

001432 

104401 

104401 

023727 

002404 

023727 

003403 

104401 

000711 

013701 

042701 

156137 

122737 

101337 

005237 

104401 

000137 


177400 

177776 

001176 

021754 

001273 

001176 


177777 

031526 

001217 

001300 

031746 


001272 


<TC<377>,R0 
(R0> ♦ 
R0.-2IR0) 

(RO) 

stmpi.ro 

#IRP,(RO)+ 
$VECmi,(RO> 
STMP1 .SVECT1 


CLEAR SIGN EXTENSION 

INCREMENT RO BY 2 

SETUP TRAP CATCHER ADDRESS AND 

PUT HALT IN TRAP ADDRESS +2 

GET NEW VECTOR ADDRESS 

GET ADDRESS FOR INTERRUPT VECTOR 

GET PRIORITY LEVEL 

STORE NEW VECTOR ADDRESS 


: DIALOGUE TO INPUT DEVICE NUMBERS 


INC 

BNE 

TYPE 

TYPE 

CLR 

TYPE 

RDCHR 


#-1 

81 

.CNSL07 

.SCRLF 

SDEVM 

.MSDRVS 


FIRST TIME THRU ? 

BR IF NO 

TYPE INPUT INSTRUCTIONS 
CR-LF 

CLEAR DEVICE MAP 
TYPE 'DRIVE (S) : ' 


001176 



MOV 

(SPH.$TMP1 

GET RESPONSE 

001176 

000101 


CMP 

STMP1 ,#'A 

IS INPUT “A" ? 



BNE 

10$ 

NO 

031344 



TYPE 

*3^.$DEVM 

YES. TYPE “ALL** AND GO 

000377 

001300 


MOV 

SET DEVICE MAP FOR ALL DRIVES 

003664 



JMP 

XSIZ 

AUTO SIZE 

001176 

000015 

10$: 

CMP 

$TMP1 MR 

CARRIAGE RETURN ? 




BEQ 

12$ 

YES 

001176 



TYPE 

.$TNP1 

ECHO RESPONSE 

001176 

000060 


CMP 

$TMP1 ,#*0 

NUMBER < 0 ? 




BLT 

12$ 

YES 

001176 

000067 


CMP 

$TMP1 , 9*7 

NUMBER > 7 ? 




BLE 

13$ 

NO 




BR 

12$ 

ILLEGAL INPUT 



11$: 

RDCHR 


l 

001 176 



MOV 

(SP) *.$TMP1 

GET RESPONSE 

001176 

000015 


CMP 

$TMP1 ,#CR 

CARRIAGE RETURN ? 




BEQ 

14$ 

YES 

031355 



TYPE 

.COMMA 

TYPE ' * 

ECHO RESPONSE 

001176 



TYPE 

£ $TMP1 

001176 

000060 


CMP 

$THP1,#'0 

NUMBER < 0 ? 



BLT 

12$ 

YES 

001176 

000067 


CMP 

$TMP1.r? 

NUMBER > 7 ? 




BLE 

13$ 

NO 

031670 


12$: 

TYPE 

BR 

^NSL08 

TYPE " 7ILLEGAL INPUT" 

RETRY 

001176 


13$: 

MOV 

$TMP1 ,R1 

R1 = DRIVE NUMBER 

177770 



BIC 

f'C7.R1 


032234 

001300 


BIS8 

ATNTBL (R1 ) ,$DEVH 

;SET DEVICE IN MAP 

000377 

001300 


CMPB 

«77,$DEVM 

DONE ? 




BHI 

11$ 

NO I 

001326 


14$: 

INC 

AUTSIZ 

DO NOT AUTO SIZE WHEN TYPING DRIVE STATUS 1 

001217 



TYPE 

,$CRLF 

CR-LF 

003664 



JMP 

XSIZ 

GO SIZE DEVICES 


SEQ 0050 
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2 004672 

3 004672 

4 004676 

5 004702 

6 004704 

7 004710 

8 004714 

9 004720 

10 004724 

11 004730 

12 004732 

13 004734 

14 004736 

15 004742 

16 004744 
004746 
004750 
004751 

17 004752 

18 004760 

19 004764 

20 004766 

21 004770 

22 004772 

23 004774 

24 004776 

25 005000 

26 

27 

28 005004 

29 005010 

30 005012 
005016 

005046 

31 005046 

32 005052 

33 005054 

34 005060 

35 005064 

36 

37 005066 

38 005070 

39 005074 

40 005076 

41 005102 

42 005104 

43 005110 

44 005114 

45 

46 005114 

47 005120 

48 005124 

49 005130 
005134 
005140 


104401 

013700 

001004 

104401 

104401 

012701 

010137 

012702 

005003 

030200 

001413 

104401 

010311 

010346 

104403 

001 

000 

116361 

062701 

006302 

105702 

001402 

005203 

000756 

005011 

104401 


004737 

000425 

104401 

000413 


005737 

001002 

000137 

000137 

000413 

000240 

105737 

001007 

005737 

001002 

000137 

000137 


105037 

005037 

004737 

012746 

012746 

000002 


031712 

001300 

031355 

031741 

001470 

001466 

000001 


031355 


032234 000001 
000002 


001217 


021374 

005020 


000042 

002732 

021344 


001300 

000042 

002732 

021344 


001116 

001206 

027224 

000000 

005142 


.'ASSEMBLE TEST 

CMNSTART: 

TYPE 

MOV 

BNE 

TYPE 

TYPE 

IS: MOV 

MOV 
MOV 
CLR 

2$: BIT 

8EQ 
TYPE 
MOV 
MOV 
TYPOS 
.BYTE 
.BYTE 
MOVB 
ADD 

3$: ASL 

TSTB 
BEQ 
INC 
BR 

4$: CLR 

TYPE 


QUE FROM DEVICE MAP 


.DRIVES 

SDEVM.RO 

IS 

.COMMA 

.NONE 

#TSTQUE*2,R1 

R1.TSTQUE 

#1.R2 

R3 

R2.R0 

3S 

.COMMA 

R3.CR1) 

R3. -<SP) 


ATNTBL(R3>,1< 

#2.R1 

R 2 

R 2 

4S 

R3 

2S 

(R1> 

.SCRLF 


TYPE ’DRIVE(S) TO BE TESTED* 

RO = DEVICE MAP 
BR IF DRIVES TO TEST 
TYPE * 

TYPE ’NONE' 

R1 = ADDRESS OF FIRST ENTRY IN CUE 
INITIALIZE ENTRY POINTER 
R2 = DEVICE POINTER 
R3 = DEVICE NUMBER 
IS THIS DEVICE IN MAP ? 

NO ! ! 

TYPE * 

YES - ENTER DEVICE NUMBER IN QUE 
.-SAVE R3 FOR TYPEOUT 
;G0 TYPE— OCTAL ASCII 
.•TYPE 1 DIGIT(S) 

^SUPPRESS LEADING ZEROS 
ENTER ATTENTION BIT IN QUE 
ADVANCE ENTRY POINTER 
ADVANCE DEVICE POINTER 
DONE AIL DEVICES ? 

YES 

ADVANCE DEVICE NUMBER 
ENTER NEXT DEVICE 
TERMINATE TEST QUE 
TYPE CR-LF 


.'SIZE 

FOR CLOCK 




JSR 

PC.SIZCLK 

SEE IF CLOCK PRESENT 


BR 

6S 

YES - CLOCK IS PRESENT 


TYPE 

,65S 

.-TYPE ASCIZ STRING 


BR 

64S 

:GET OVER THE ASCIZ 

;;65S: 

.ASCIZ 

<CRLF>/NO ’L* OR 

V CLOCK/ 

64S: 





TST 

B#42 

ANY MONITOR PRESENT ? 


BNE 

ss 

BR IF YES 


JMP 

START 

JUMP TO START 

5S: 

JMP 

SGET42 

RETURN CONTROL TO MONITOR 

6S: 

BR 

READY1 


READY: 

NOP 


READY TO START TEST 


TSTB 

SDEVM 

ANY DRIVES IN MAP ? 


BNE 

2S 

BR IF YES 


TST 

a#42 

ANY MONITOR PRESENT ? 


BNE 

IS 

BR IF YES 


JMP 

START 

JUMP TO START 

IS: 

JMP 

SGET42 

RETURN CONTROL TO MONITOR 

2S: 




READY1 

: CLR8 

STSTNM 

RESET TEST NUMBER 


CLR 

STIMES 

INITIALIZE NUMBER 05 ITERATIONS 


JSR 

PC.STKINT 

INITIALIZE TTY 


MOV 

#PRO.-(SP) 

.'PUT NEW PS ON STACK 


MOV 

#64S.-(SP) 

;PUT NEW PC ON STACK 


RTI 


.-POP NEW PC AND PS 


H 4 


SEQ 0051 
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005142 

50 005142 

51 

52 

53 005150 

54 005154 

55 005162 

56 005170 

57 

58 

59 005176 

60 005202 

61 005206 

62 005210 

63 005214 

005220 

005222 

005223 

64 005224 

65 005226 

66 005230 

67 005232 

68 005234 


117737 174320 001234 


013700 

012760 

117760 

012737 


104401 

105737 

001406 

104401 

013746 

104403 

002 

000 

005004 

005304 

001376 

005304 

001376 


001276 

000040 

174300 

006400 


001217 

001300 

031762 

001234 


000010 

000010 

001334 


MOVB STSTQUE.SUNIT ; LOAD DRIVE NUMBER 

; CLEAR MASSBUS CONTROLLER. SELECT DRIVE .AND SET LAST TRACK ADDRESS 
MOV S8ASE.R0 ;R0 = UNIBUS ADDRESS 

MOV #CLR.RMCS2(R0) : CLEAR MASSBUS 

MOVB 9TST0UE.RMCS2(R03 .-SELECT DEVICE UNDER TEST 

MOV #TA8!TA*!TA1.LSTRK ;SET LAST TRACK - 13. 

; TYPE DRIVF NUMBER TO BE TESTED(SUNIT) 


.SCRLF 

SDEVM 

IS 

.MSGDRV 
iUNI T.-(SP) 


TVPOS 

.BYTE 

.BYTE 

CLR 

DEC 

8NE 

DEC 

BNE 


CR-LF 

ANY DRIVES IN MAP ? 

BR IF NO 
TYPE ’DRIVE’ 

.-SAVE SUNIT FOR TYPEOUT 
;TYPE DRIVE NUMBER 
;G0 TYPE— OCTAL ASCII 
.-TYPE 2 DIGIT(S) 

; SUPPRESS LEADING ZEROS 
THESE TWO LOOPS APE ADDED TO 
;WAIT FOR TTY 
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SEO 0052 


.SBTTL REGISTER AND STORAGE USAGE 
.•REGISTER ASSIGNMENTS 

'•RO = UNIBUS ADDRESS OF RH CONTROLLER 

*.ri = ADDRESS OF ENTRY IN TEST QUE CORRESPONDING TO THE 

• UNIT UNDER TEST „ 

•R2.R3 = WORKING REGISTERS FOR TEST IN PROGRESS. MUST BE 

SAVED BY SUBROUTINES 

•R4.R5 = GENERAL WORKING REGISTERS. ARE NOT SAVED BY 

; SUBROUTINES 

;R6 = STACK POINTER . . 

;R7 = LINKAGE REGISTER TO SUBROUTINES 

.•STORAGE ASSIGNMENTS 

i$TMP0-*TMP4 TEMPORARY STORAGE, NOT SAVED BY SUBROUTINES 

;$GDDAT.S8DDAT EXPECTED AND RRECEIVED STATUS FOR ERROR TYPEOUT 

;$GDADR.$8DADR ADDRESS OF EXPECTED AND RECEIVED STATUS IF APPLICABLE. 
ALSO THE ADDRESS OF A RE6ISTER ERROR 


STSTN 

SUN1T 

RGINBF 


R60TBF = 


TEST NUMBER _ _ 

NUMBER OF DEVICE BEING TESTED 

THE REGISTER INPUT BUFFER HAS A STORAGE LOCATION FOR 
EACH REGISTER. AND IS USED WHEN READING STATUS AND 

THE T REGISTER OUTPUT BUFFER HAS A ST0RA6E LOCATION FOR 
EACH REGISTER, AND IS USED FOR ASSEMBLING DATA TO BE 
WRITTEN IN REGISTERS 
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SEQ 005 


B 5 


2 

3 

4 

5 

6 
7 


005236 

005236 

005240 

005242 

005246 

005252 

005256 


000004 

000240 

012706 

013700 

013701 

012737 


005264 012702 


005270 
. 005270 

8 005274 

9 005302 

10 005310 

11 005312 

12 005316 

13 005324 

14 005332 

15 005336 

16 005344 

17 005346 

18 

19 

20 

21 005350 

22 005350 

23 005352 

24 005354 

25 005356 

26 005364 

27 

28 005366 

29 005372 

30 005400 

31 005406 

32 005410 

33 005414 

34 005422 

35 005430 

36 005434 

37 005442 

38 005444 

39 

40 

41 

42 005446 

43 005446 

44 005452 

45 005460 

46 

47 


004737 

016037 

032737 

001417 

111137 

042737 

052737 

010037 

062737 

104001 

000475 


010003 

060203 

011304 

032760 

001470 

004737 

016037 

032737 

001417 

111137 

042737 

052737 

010037 

062737 

104001 

000436 


022230 

000010 

010000 

001140 

177770 

000100 

001136 

000010 



;;****' 

.-•TEST 

1 

TRANSFER TEST 



;;****' 
TST1 : 

SCOPE 

NOP 

NOV 

MOV 

MOV 

MOV 


.-SCOPE CALL 

001100 

001276 

001466 

000001 001226 


fSTACK.SP 
S8ASE.R0 
TST0UE.R1 
#1 .STESTN 

.-LOAD THE STACK POINTER 

;R0 = UNIBUS ADDRESS 

;R1 = POINTER TO DEVICE 

;;SET TEST NUMBER IN APT MAIL BOX 

000000 


MOV 

#0,R2 

;R2 * REGISTER INDEX 


; CLEAR THE MASSBUS AND VERIFY THAT NONEXISTANT DEVICE ERROR IS RESET 

10$ ' PC.CNTCLR ;G0 CLEAR CONTROLLER 

RMCS2 < R0> . S8DDAT .-STORE RMCS2 AT S6DDAT 

fNED.SBDDAT 
20 $ 

(RD.SGDDAT 
#*CUNTMSK»$GDDAT 
#IR.$GDDAT 
RO.SBDADR 
#RMCS2.$8DADR 
1 

60S 

.-READ THE REGISTER WHOSE INDEX IS IN R2 AND EXIT TEST IF THE READ 
[DOES NOT SET "NED" ERROR 



JSR 

001142 

MOV 

001142 

BIT 

BEQ 

MOVB 

001140 

BIC 

001140 

BIS 

MOV 

001136 

ADD 

EMT 

BR 




MOV 

ADD 

MOV 

010000 

000010 

BIT 

BEQ 

022230 


JSR 

000010 

001142 

MOV 

010000 

001142 

BIT 

BEQ 

MOVB 

001140 


177770 

001140 

BIC 

000100 

001140 

BIS 

001136 


MOV 

000010 

001136 

ADD 

EMT 

BR 


;R3 * REGISTER ADDRESS 

;READ REGISTER 
;IS 'NED" SET?? 

;NOi! 

;G0 CLEAR CONTROLLER 

.-STORE RMCS2 AT S6DDAT 


012713 000000 
032760 010000 
001432 


000010 


$ 0 $: * , 

R0.R3 
R2.R3 
(r5).R4 

#NED.RNC$2<R0) 

70S 

PC.CNTCLR 
RMCS2(R0).$8DDAT 
#NED.$8DDAT 
30$ 

CR1).$GDDAT 
**CUNTNSK,$GDDAT 
AIR.SGDDAT 
R0.S8DADR 
#RMCS2.$8DADR 
1 

60$ 

.-WRITE THE REGISTER WHOSE INDEX IS IN R2 AND EXIT TEST IF THE WRITE 
•DOES NOT SET ‘NED’* ERROR 

i0f: NOV #0. (R3) [WRITE REGISTER 

BIT #NiD,RNCS2(R0) ; I S "NED" SET?? 

BEQ 70$ ;N0! ! 

.-COULD NOT READ OR WRITE THE REGISTER WITHOUT SETING •’NED" ERROR - 
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C 5 


SEQ 0054 


.•ADVANCE THE REGISTER INDEX AND REPEAT THE TEST FOR THE NEXT 
.AVAILABLE DEVICE REGISTER 

40$: 


48 

49 

50 005462 

51 005462 

062702 

000002 

52 005466 

022702 

000002 

53 005472 

001773 


54 005474 

022702 

000004 

55 005500 

001770 


56 005502 

022702 

000010 

57 005506 

001765 


58 005510 

022702 

000016 

59 005514 

001762 


60 005516 

022702 

000022 

61 005522 

001757 


62 005524 

022702 

000046 

63 005530 

1*3257 


64 

65 

66 005532 

67 005532 

013737 

001276 001136 

68 005540 

104002 


69 005542 

000137 

021120 

70 

71 005546 

72 

73 




ADD 

#2.R2 

CNP 

ARMWC.R2 

BEQ 

40$ 

CNP 

0RNBA.R2 

BEQ 

40$ 

CNP 

#RNCS2.R2 

BEQ 

40$ 

CNP 

#RNAS.R2 

BEQ 

40$ 

CNP 

«RNDB.R2 

BEQ 

40$ 

CNP 

«RNEC2,R2 

BHIS 

10$ 


;GOT 'NONEXISTENT DEVICE' ERROR 
§ 0 $: 

MOV $8ASE.$8DADR 

ENT 2 

60$: JNP $EOSP 

70$: 

;*TEST 2 CTOD TEST 


.‘ADVANCE TO NEXT REGISTER 
;IS THIS RNWC?? 

;YES - TRY NEXT REGISTER 
;IS THIS RNBA?? 

; YES - TRY NEXT REGISTER 
;IS THIS RNCS2?? 

; YES - TRY ANOTHER REGISTER 
;IS THIS RNAS ?? 

;YES - TRY ANOTHER REGISTER 
;IS THIS RNDB?? 

; YES - TRY ANOTHER REGISTER 
;IS THIS A LEGAL REGISTER 
;YES - TRY THIS REGISTER 

FOR EVERY RENOTE REGISTER ADDRESS 

; STORE BASE ADDRESS 

;G0 SELECT NEXT DEVICE 


005546 




005546 

000004 



005550 

000240 



005552 

012706 

001100 


005556 

013700 

001276 


005562 

013701 

001466 


005566 

74 

012737 

000002 

001226 

75 005574 

0C4737 

022230 


76 




77 




78 005600 

012760 

000076 

000000 

79 905606 

012760 

177777 

000006 

80 005614 

012760 

001777 

000034 

81 005622 

012760 

017200 

000032 

005630 

012760 

017200 

000032 

8c 




83 




84 005636 

012702 

000001 


85 005642 




005642 

0J6037 

000000 

001336 

86 005650 

016037 

000006 

001344 

87 005656 

016037 

000034 

001 372 

88 005664 

016037 

000032 

001370 

89 005672 

005302 



90 005674 

100362 




91 

92 


TST2: 


SCOPE 

NOP 

NOV 

NOV 

NOV 

NOV 

J SR 


.•SCOPE CALL 

#STACK.SP .-LOAD THE STACK POINTER 

$OASE.RO ;R0 = UNIBUS ADDRESS 

TST0UE.R1 ;R1 = POINTER TO DEVICE 

#2.$TESTN ;;SET TEST NUNBER IN APT NAIL BOX 

PC.CNTCLR ;G0 CLEAR CONTROLLER 


;URITE ONES IN RENOTE REGISTERS 
NOV #ILF76,RNCS1 (RO) 


NOV 

NOV 

NOV 

NOV 


r u«nnv>>n xnw/ 

#-1 .RNDA(RO) .-LOAD RNDA 


LOAD RNCS1 


fCYLNSK.RNDC(RO) 
#*CXNUOF ,RNOF (RO) 
#*CXNUOF ,RNOF (RO) 


LOAD RNDC 
LOAD RNOF 

LOAD RNOF AGAIN TO SET SSEI 


.READ RENOTE REGISTERS TWICE 


10 $: 


NOV 

NOV 

NOV 

NOV 

NOV 

DEC 

BPL 


#1,R2 


RNCS1 (RO) .RNCS1I .‘STORE RNCS1 IN INPUT BUFFER 

RNDA(RO) .RHDAI ;STORE RNDA IN INPUT BUFFER 
RNDC(RO) .RNDCI .-STORE RNDC IN INPUT BUFFER 
RNOF (RO) .RNOF I .-STORE RNOF IN INPUT BUFFER 

lS$ 


.-SEE IF ANY ONE BITS CANE BACK 
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SEQ 0055 


CTOO TEST 


93 005676 042737 177701 

94 005704 001014 

95 005706 005737 001344 
96005712 001011 


001336 


96 00571J 


97 005714 042737 176000 001372 

98 005722 001005 

99 005724 042737 160577 001370 


99 005724 042737 

100 005732 001001 

101 

103 005734 104003 

104 005736 

105 

106 


#*CILF76.RMCS1I 

205 

RMDAI 

20S 

AXNUDC.RMDCI 

20 $ 

AXNUOF , RMOF I 
20 $ 


IS RMCS1 0?? 
NO!! 

IS RMDA 0?? 
NO!! 

IS RMDC 0?? 
NO!! 

IS RMOF 0 ?? 
NO!! 


005736 

005736 

005740 

005742 

005746 

005752 

005756 

107 

108 005764 

109 

110 

111 005770 

112 005776 

113 006004 

114 

115 

116 006012 

117 

118 

119 006016 

120 006024 

121 006032 

122 

123 

124 006040 

125 006046 

126 006054 

127 006062 

128 006064 

129 006072 

130 006074 

131 006102 

132 

133 

134 006104 

135 006106 

136 

137 


000004 

000240 

012706 

013700 

013701 

012737 


001100 

001276 

001466 

000003 


004737 022230 


012760 

012760 

012760 


000076 

177777 

177777 


004737 022230 


016037 

016037 

016037 


052737 

052737 

022737 

001011 

022737 

001005 

022737 

001001 


104004 


; CANNOT READ/URITE A ONE FROM ANY REMOTE REGISTER 
EMT 3 

20 $: 


.••TEST 3 


MASS8US INITIALIZE TEST 


Hr************************************************************ 


TST3: 


000000 

000014 

000042 


177701 

001527 

177777 


001226 


000000 

000014 

000042 


001336 

001352 

001400 


001336 

001400 

001336 


SCOPE 

NOP 

MOV 

MOV 

MOV 

MOV 


.•SCOPE CALL 

fSTACK.SP ;LOAD THE STACK POINTER 

S84SE.R0 ;R0 = UNIBUS ADDRESS 

TSTQU^.RI ;R1 * POINTER TO DEVICE 

P3.STESTN ; ; SET TEST NUMBER IN APT MAIL BOX 

PC.CNTCLR ;G0 CLEAR CONTROLLER 


; WRITE ONES IN SELECTED REGISTERS 

MOV #ILF76,RMCS1(R0) ;LOAD RMCS1 

mov #-i,rm£ri (RO) .-LOAD RMER1 

MOV #-1.RMER2(R0) .'LOAD RMER2 


.•INITIALIZE MASSBUS WITH A CLEAR 
JSR PC.CNTCLR 


;G0 CLEAR CONTROLLER 


.•READ THE REGISTERS THAT WERE WRITTEN 
MOV RMCS1 (RO) .RMCS1 I 

MOV RMER1(R0).RMER1I 

MOV RMER2(R0) .RHER2I 

;SEE IF ANY REGISTER BITS WERE CLEARED 
BIS **CILF76.RHCS1I ;SET A 


STORE RMCS1 IN INPUT BUFFER 
STORE RMER1 IN INPUT BUFFER 
STORE KBER2 IN INPUT BUFFER 


177777 001352 
177777 001400 


CMP #-1,RHC§1I 

BNE 10$ 

CW> A-1.RMER1I 

BNE 10$ 

CMP A-1 .RMER2I 

BNE 10$ 

.-NONE OF THE BITS WERE CLEARED 
EMT 4 

10 $: 


#*CILF76,RMCS1I '.-SET ANY BIT NOT WRITTEN 
fXNU€R2.RMER2l 


;ANY ZEROS IN RMCS1?? 
•YES' ' 

•ANY ZEROS IN RHERI?? 
•YES' 1 

•ANY ZEROS IN RMER2?? 


;*TEST 4 


CLEAR STUCK ACTIVE TEST 
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SEQ 005C 


006106 

006106 

006110 

006112 

0C6116 

006122 

006126 

138 

139 006134 

140 

141 

142 006140 

143 006146 

144 006154 

145 

146 

147 006162 

148 006170 

149 006176 

150 006204 

151 006212 

152 006214 

153 006222 

154 006224 

155 006232 

156 006234 

157 006236 


000004 

000240 

012706 

013700 

013701 

012737 


TST4: 


012760 

012760 

012760 


016037 

016037 

016037 

042737 

001011 

042737 

001005 

032737 

001001 

104026 


001100 

001276 

001466 

000004 


004737 022230 


177777 

177777 

000001 


000014 

000042 

000024 

040000 


001226 


000014 

000042 

000024 


001352 

001400 

001362 

001352 


040200 001400 
000001 001362 


SCOPE 

NOP 

MOV 

MOV 

MOV 

MOV 


fSTACK.SP 

S8ASE.R0 

TSTQUE.R1 

#4,$TESTN 

PC.CNTCLR 


.•WRITE ONES IN TEST REGISTERS 
MOV #-1 .RMER1 (RO) 

MOV f-1.RMER2(R0) 

MOV #DMD,RNMR1 (RO) 


.SCOPE CALI 

.-LOAD THE STACK POINTER 

;R0 = UNIBUS ADDRESS 

;R1 * POINTER TO DEVICE 

; ; SET TEST NUMBER IN APT MAIL BOX 

;G0 CLEAR CONTROLLER 


.‘LOAD RMER1 
.•LOAD RMER2 
.-LOAD RNMR1 


rREAD TEST REGISTERS AND SEE IF ANY BITS ARE ON 


RMER1(R0).RMER1I 
RMER2(R0) .RMER2I 
RMMR1 (RO) .RNNR1I 
fUNS.RMERl I 
10 $ ; 


[ .-STORE RMER1 IN INPUT BUFFER 

.•STORE RMER2 IN INPUT BUFFER 
[ .'STORE RMMR1 IN INPUT BUFFER 

;D0NT ACCEPT UNSAFE 
.•BRANCH IF ANY OTHER BITS ON 


#SKI .'DVC.RHER2I ;D0NT ACCEPT SKI ON DVC 


10$ 

fDMD.RMMRII 

10 $ 

26 


.•BRANCH IF ANY OTHER BITS ON 
.BRANCH IF DMD IS ON 


•iTEST 5 


TRISTATE TRANSFER TEST 


006236 

006236 

006240 

006242 

006246 

006252 

006256 

160 

161 006264 

162 006266 

163 

164 

165 006272 

166 006300 

167 006306 

168 006314 
006322 

169 006330 

170 

171 

172 006336 

173 006344 

174 006352 

175 006360 


000004 

000240 

017706 

013700 

013701 

012737 

005002 

004737 


012760 

012760 

012760 

012760 

012760 

012760 


012760 

012760 

012760 

012760 


001100 

001276 

001466 

000005 


022230 


000076 

177777 

177777 

177777 

177777 

177777 


000000 

000000 

000000 

000000 


001226 


000000 

000006 

000014 

000032 

000032 

000042 


000000 

000006 

000014 

000032 


SCOPE 

NOP 

MOV 

MOV 

MOV 

MOV 


fSTACK.SP 

SaA5E.R0 

TST0UE.R1 

#5.$TESTN 

R2 

PC.CNTCLR 


.•SCOPE CALL 

.-LOAD THE STACK POINTER 

;R0 s UNIBUS ADDRESS 

;R1 = POINTER TO DEVICE 

.-.‘SET TEST NUMBER IN APT NAIL BOX 

.CLEAR ERROR FLAGS 
;G0 CLEAR CONTROLLER 


.-WRITE ONES IN SELECTED REGISTERS 


#ILF76,RNCS1 <R0) .-LOAD RMCS1 

#-1 .RMOO(RO) .LOAD RMDA 

f-I.RMERKRO) .-LOAD RHER1 

#-1 ,RHOF (RO) .LOAD RMOF 

#-1 .RMOF(RO) .‘LOAD RMOF AGAIN TO SET SSEI 

#-1.RMER2(R0) .LOAD RNER2 


.-WRITE ZEROS IN SELECTED REGISTERS 
MOV fO.RNCSI (RO) ;L 


fO.RMDA(RO) 
fO.RMERI (RO) 
fO.RMOF(RO) 


LOAD RMCS1 
LOAD RMDA 
LOAD RMER1 
LOAD RMOF 
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SEQ 005/ 


176 006366 

177 006374 

178 

179 

180 006402 

181 006410 

182 006416 

183 006424 

184 006432 

185 006440 

186 

187 

188 006446 

189 006452 

190 006460 

191 006466 

192 006474 

193 006502 

194 006506 

195 006512 

196 006516 

197 006522 

198 006526 

199 006532 

200 006536 

201 006542 

202 006546 

203 006552 

204 006556 

205 006562 

206 

207 

208 006564 

209 006570 

210 006574 

211 006576 

212 

213 006602 
006602 

214 

215 

216 

217 006606 

218 006614 

2 19 006622 

220 
22 1 

222 006630 

223 006636 

224 006644 
006652 

225 006660 

226 006666 

227 006674 

228 

229 

230 006702 


012760 

012760 


016037 

016037 

0160*7 

016037 

016037 

016037 


012702 

052737 

052737 

052737 

052737 

005137 

005137 

005137 

005137 

005137 

005137 

043702 

043702 

043702 

043702 

043702 

043702 

001407 


010237 

005037 

104005 

052702 


000000 

000000 


000000 

000006 

000014 

000032 

000034 

000042 


177777 

177701 

160577 

176000 

001527 

001336 

001344 

001352 

001370 

001372 

001400 

001336 

001344 

001352 

001370 

001372 

001400 


001142 

001140 

000001 


004737 022230 


012760 

012760 

012760 


012760 

012760 

012760 

012760 

012760 

012760 

012760 


000034 

000042 


001336 

001344 

001352 

001370 

001372 

001400 


001336 

001370 

001372 

001400 


000000 

000000 

000000 


000076 

177777 

017200 

017200 

001777 

177777 

176250 


.-LOAD RMDC 
;10AD RMER2 


MOV #O.RMDC(RO) 

MCV #0.RMER2(R0> 

.READ R jyjcS1(R0' RHCS1I /STORE RMCS1 IN INPUT BUFFER 

MOV RMDA(RO),£MDAI .-STORE RMDA IN INPUT BUFFER 

MOV RMER1 ( R05 .RMER1I /STORE RMER1 IN INPUT BUFFER 

MOV RMOF (RO) .RMOFI .-STORE RMOF IN INPUT BUFFER 

MOV RMDC(RO),RMDCI .-STORE RMDC IN INPUT BUFFER 

MOV RMER2(R0$.RMER2I .-STORE RMER2 IN INPUT BUFFER 

.-CHECK EACH REGISTER CONTENT FOR ZERO BITS WRITTEN t READ 
MOV #-1 ,R2 .-ACCUMULATE ZEROS IN R2 

BIS #*CILF76,RMCS1I ;SET ALL BITS NOT WRITTEN 

81 S 0XNUOF .RMOF I 

BIS fXNUDC.RMDCI 

BIS #XNUERZ,RMER2I 

COM RMCS1I .-COMPLEMENT REGISTER CONTENTS 

COM RMDAI 

COM RMER1 I 

COM RMOFI 

COM RMDC I 

COM RMER2I 

BIC RMCS1I.R2 .-ACCUMULATE ALL ZERO BITS 

BIC RMDAI, R2 

BIC RMER1I.R2 

BIC RMOFI. R2 

BIC RM0CI.R2 

BIC RMER2I.R2 

BEQ 108 .-BRANCH IF EACH BIT IS ZERO 

;ONE OR MORE BIT POSITIONS ARE NOT ZERO 

MOV R2.S6DDAT /SAVE RESULT FOR TYPE 

ClR SGfiDAT /LOAD EXPECTED RESULT 

EMT 5 

BIS #81 T0.R2 .-SET ERROR FUG 


108: 


JSR 


PC.CNTCLR 


;G0 CLEAR CONTROLLER 


000006 

000032 

000034 


000000 

000006 

000032 

000032 

000034 

000014 

000042 


.-PRESET SELECTED REGISTERS TO ZEROS 
; (ASSUME RMCS1 , RMER1, RHER2 WERE CLEARED BY INIT) 

MOV #0,RM6a(R0) .'LOAD RMDA 

MOV #0,RM0F (RO) /LOAD RMOF 

MOV fO.RMDC(RO) /LOAD RMDC 

.-WRITE ONES IN SELECTED REGISTERS _ 

MOV #ILF76.RNCSKR0> /LOAD RMCS1 

MOV #-1,Rm6a(R0> / /LOAD RMDA 

MOV # a CXNU0F,RM0F(R05 .-LOAD RMOF 

MOV #*CXNUOF *RMOF (RO) /LOAD RMOF AGAIN TO SET SSEI 

MOV #*CXNUDC.RMDC(RO) /LOAD RMDC 

MOV #-1 .RMERl (RO) /LOAD RNER1 

MOV #*CXNUER2,RMER2(R0) .'LOAD RMERc 


016037 000000 001336 


.READ ALL REGISTERS 

MOV RMCS1 (RO).RMCSII 


.-STORE RMCS1 IN INPUT BUFFER 


SEQ 005 
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TRISTATE TRANSFER TEST 


231 006710 

232 006716 

233 006724 

234 006732 

235 006740 

236 
257 

238 006746 

239 006754 

240 006762 

241 006770 

242 006776 

243 007000 

244 007004 

245 007010 

246 007014 

247 007020 

248 007024 

249 007030 

250 007034 

251 

252 

253 007036 

254 007042 

255 007050 

256 007052 

257 007056 

258 007056 
25<» 007060 

260 007062 

261 

262 007066 
007066 

263 

264 

265 007072 

266 007076 
007102 

267 007106 

268 007112 

269 007116 

270 

271 

272 007122 

273 007130 

274 007136 

275 007144 

276 007152 

277 

278 

279 007160 

280 007162 

281 007166 

282 007172 

283 007174 

284 007176 

285 007200 


016037 

016037 

016037 

016037 

016037 


042737 

042737 

042737 

042737 

005002 

053702 

053702 

053702 

053702 

053702 

053702 

022702 

001410 


010237 

012737 

104006 

052702 

005702 

001130 

012702 


000006 

000032 

000034 

000014 

000042 


177701 

160577 

176000 

001527 

001336 
001344 
OOi 370 
001372 
001352 
001400 
177777 


001344 

001370 

001372 

001352 

001400 


001336 

001370 

001372 

001400 


; CHECK EACH 
BIC 
BIC 
BIC 
BIC 
CLR 
BIS 
BIS 
BIS 
BIS 
BIS 
BIS 
CMP 
BEQ 


RMDA(RO) .RRDAI .-STORE RMDA IN INPUT BUFFER 

RMOF (RO) .RHOFI .-STORE RMOF IN INPUT BUFFER 

RMDC (RO) .RMDCI .-STORE RMDC IN INPUT BUFFER 

RMER1 C ROS .RMER1I ;STORE RMER1 IN INPUT BUFFER 

RMER2(R0>,RMER2I .-STORE RMER2 IN INPUT BUFFER 

REGISTER CONTENT FOR ONE BITS WRITTEN ft READ 


#*CILF76.RMCS1I 

#XNUOF,RMOFI 

fXNUDC.RMDCI 

#XNUER2,RMER2I 

R2 

RMCS1I.R2 
RMDAI.R2 
RM0FI.R2 
RMDCI ,R2 
RMER1I.R2 
RMER2I.R2 
A-1.R2 
20 $ 


.-CLEAR ALL BITS NOT WRITTEN 


.-ACCUMULATE ONES IN R2 

.-ACCUMULATE ALL ONE BITS 


.-SEE IF EACH BIT POSITION WAS ONE 
.-BRANCH IF NONE STUCK 


001142 

177777 001140 
000002 


000001 


.-ONE OR MORE BIT POSITIONS ARE NOT ONE 


004737 022230 


010260 000006 
010260 000032 
010260 000032 
010260 000034 
010260 000014 
010260 000042 


016037 000006 001344 
016037 000032 001370 
016037 000034 001372 
016037 000014 001352 
016037 000042 001400 


005003 

012704 177777 

013705 001344 
050503 
005105 
040504 

013705 001370 


R2 f $BDDAT 

#-1.$GDDAT 

6 

#8IT;.R2 

R2 

30$ 

#1.R2 


PC.CNTCLR 


.-SAVE RESULT FOR TYPE 
.-EXPECTED RESULT 


.-SET ERROR FLAG 

;ANY ERRORS DETECTED ?? 
.-YES - DONT DO BIT TEST 
;R2s8IT POSITION 


;G0 CLEAR CONTROLLER 


; WRITE THE BIT PATTERN IN SELECTED DEVICE REGISTERS 

* . . - & A m — Ml a I A A MHk A 


MOV R2.RMOA(R0) 

MOV Rf,RMOF(RO> 

MOV R2,RN0F(RQ> 

MOV R2.RMDC(R0) 

MOV R2.RMER1 <R0> 

MOV R2,RMER2(R0> 

.-READ BACK THE REGISTERS 


.-LOAD RMDA 
;LOAD RMOF 

.-LOAD RMOF AGAIN TO SET SSEI 
,-LOAD RMDC 
.-LOAD RMER1 
.-LOAD RMER2 


RMDA(RO).RMDAI .-STORE RMDA IN INPUT BUFFER 

RMOF (RO), RMOF I ; STORE RMOF IN INPUT BUFFER 

RMDC (RO), RMDC I .‘STORE RMDC IN INPUT BUFFER 

RMERUR05.RMER1I ; STORE RMER1 IN INPUT BUFFER 

RMER2 RO) RMER2I STORE RMER2 IN INPUT BUFFER 


.-CHECK REGISTER CONTENTS FOR CORRECT PATTERN 
CLR R3 ;R3=ACO#M.A 


R3 

#-1.R4 

RMDAI.R5 

R5.R3 

R5 

R5.R4 

RM0FI.R5 


;R3=ACO#M.ATED ONE BIT 
;R4=ACCl*ULATED ZERO BITS _ 

.-GET ANY GOOD BITS FROM RMDA 


.-GET GOOD BITS FROM RMOF 


H 5 
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iEO 0059 


286 007204 

287 00721 C 

288 007212 

289 0072 1 4 

290 007220 

291 007222 

292 007226 

293 007232 

294 007234 

295 007236 

296 007242 

297 007244 

298 007250 

299 007252 

300 007254 

301 007256 

302 007262 

303 007266 

304 007270 

305 007272 

306 007276 

307 007300 

308 007302 

309 007304 

310 007306 

311 007310 

312 007312 

313 007314 

314 007316 

315 007322 

316 007326 

317 007330 

318 

319 

320 007332 

321 007332 

322 007334 

323 007336 

324 007342 

325 

326 


327 

328 

329 

330 

331 

332 


042705 

050503 

005105 

042705 

040504 

013705 

042705 

050503 

005105 

042705 

040504 

013705 

050503 

005105 

040504 

013705 

042705 

050503 

005105 

042705 

040504 

010205 

005105 

040503 

040204 

050403 

020302 

001406 

010237 

010337 

104007 

000404 


006302 

001402 

000137 


160577 

160577 

001 372 
176000 

176000 

001352 


001400 

001527 


001527 


001140 

001142 


BIC 

BIS 

CON 

BIC 

BIC 

MOV 

BIC 

BIS 

CON 

BIC 

BIC 

MOV 

BIS 

CON 

BIC 

MOV 

BIC 

BIS 

CON 

BIC 

BIC 

NOV 

CON 

BIC 

BIC 

BIS 

CNP 

BEQ 

NOV 

NOV 

ENT 

BR 


AXNU0F.R5 

R5.R3 

R5 

fXNUOF ,R5 
R5.R4 
RMDCI ,R5 
AXNUDC ,R5 
R5.R3 
R5 

#XNUDC,R5 

R5.R4 

RNER1I.R5 

R5,R3 

R5 

R5.R4 

RMER2I.R5 

#XNUER2,R5 

R5.R3 

R5 

#XNUER2.R5 

R5.R4 

R2.R5 

R5 

R5.R3 

R2.R4 

R4.R3 

R3.R2 

26i 

R2.$GDDAT 

R3.S8DDAT 

7 

30$ 


;GET GOOD BITS F RON RNDC 


;GET GOOD BITS FROM RNER1 


;GET GOOD BITS FROM RMER2 


.RESET ALL ONES IN R3 EXCEPT 
;FOR THE TEST BIT 

.RESET TEST BIT IN R4 
.•COMBINE ACCUMULATED 1*S ♦ 0*S 
; IS PATTERN OK?? 

‘YES* 1 

' " .‘SAVE TEST PATTERN 

; SAVE RESULT 

.•SKIP TO NEXT 


007066 


; ADVANCE R2 TO THE NEXT PATTERN AND REPEAT TEST 
26 $: 

ASL R2 .-SHIFT THE BIT 
BEO 30$ .-EXIT IF DONE 
JNP 25$ 


30$: 


.-•TEST 6 


REGISTER SELECT TEST 


007342 

007342 

000004 

t§T6: 

SCOPE 


007344 

000240 


NOP 


007346 

012706 

001100 

NOV 

tSTACK.SP 

SBASE.RO 

TSTQUE.R1 

007352 

013700 

001276 

NOV 

007356 

013701 

001466 

NOV 

007362 

012737 

000006 001226 

NOV 

#6,$TESTN 


.•SCOPE CALL 

.‘LOAD THE STACK POINTER 
;R0 = UNIBUS ADDRESS 
;R1 = POINTER TO DEVICE 
;;SET TEST NUMBER IN APT NAIL BOX 

;THE FOLLOWING TABLE GIVES NASSBUS REGISTER SELECT VALUES FOR 
.•EACH DEVICE REGISTER 


REGISTER 

NAME 


REG SEL 
(16,8.4.2.1) 


SEQ 006 
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333 

334 

335 

336 

337 

338 

339 

340 

341 

342 

343 

344 

345 

346 

347 

348 

349 

350 

351 

352 

353 

354 

355 

356 

357 

358 

359 

360 007370 

361 007372 

362 

363 

364 

365 007376 

366 007402 

367 007406 

368 007412 

369 007416 

370 007422 

371 007430 

372 007436 

373 007442 

374 007444 

375 007452 

376 007456 

377 007460 

378 

379 

380 007462 
301 007462 

382 007466 

383 007472 
007476 

384 007502 

385 007506 

386 007512 

387 007516 

388 007522 


005002 

012703 


004737 

010260 

010260 

010360 

010360 

016037 

016037 

020337 

001007 

052737 

020337 

001001 

104010 


004737 

010260 

010260 

010260 

010260 

010360 

010360 

010360 

016037 


177777 


022230 

000014 

000034 

000024 

000036 

000014 001352 
000034 001372 
001352 

176000 001372 
001372 


022230 

000006 

000032 

000032 

000042 

000016 

000030 

000040 

000006 001344 


RMCS1 

00000 

RMDS 

00001 

RMER1 

00010 

RMMR1 

00011 

RMAS 

00100 

RMDA 

00101 

RMDT 

00110 

RMLA 

00111 

RMSN 

01000 

RMOF 

01001 

RMDC 

01010 

RMHR 

01011 

RMMR2 

01100 

RMER2 

01101 

RMEC1 

oiiio 

RMEC2 

01111 


EACH REGISTER SELECT LINE IS TESTED FOR A STUCK AT ONE, 
STUCK AT ZERO FAULT. AS AN EXAMPLE, TO TEST REG SEl 1. 

FOR S-A-O. RMER1 IS WRITTEN WITF ZEROS. THEN THE REGISTER 
THAT HAS fHE SAME SELECT VALUE, EXCEPT FOR THE SELECT LINE 
BEING TESTED, IS WRITTEN WITH ONES. IN THIS EXAMPLE, 

RMMR1 IS WRITTEN WITH ONES. IF SELECT LINE 1 IS S-A-O, 

THE ALL ONES WORD WILL BE WRITTEN IN RMER1 , AND RMER1 
WILL NOT BE 0 WHEN READ BACK. 


CLR 

MOV 


R2 

#-1,R3 


;TEST REG SEL 1 FOR S-A-0 


JSR 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CMP 
BNE 
BIS 
CMP 
BNE 
EMT 

;TEST REG SEL 1 

10 $: 

JSR 

MOV 

NOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 


FOR 


S-A-1 


PC.CNTCLR 

R?<RMDA(RO> 

R2,RMOF(RO) 

R2,RM0F(R0) 

R2,RMER2(R0) 

R3.RMASCR0) 

R3,RMSN(R0> 

R3,RMHR2(R0) 

rm6a(ro),rmdai 


;R2= ZEROS SOURCE 
;R3= 


PC,CNTCLR 
R2.RMER1 <R0) 
r|,rmdc(ro> 

R3.RMMR1 (R0> 
R3,RMHR(R0) 

RMER1 <R0) ,RMER1I 

RMDCCROJ.RMDCI 

R3.RMER11 

ioi 

#XNUOC,RNDCI 

R3.RMDCI 

ioi 

10 


ONES SOURCE 


;G0 CLEAR CONTROLLER 
.-LOAD RMER1 
.LOAD RMDC 
;LOAD RMMR1 
.-LOAD RMHR 

: STORE RMER1 IN INPUT BUFFER 
.•STORE RMDC IN INPUT BUFFER 


GO CLEAR CONTROLLER 
LOAD RMDA 
LOAD RMOF 

LOAD RMOF AGAIN TO SET SSEI 

LOAD RMER2 

LOAD RMAS 

LOAD RMSN 

LOAD RMMR2 

STORE RMDA IN INPUT BUFFER 


CZRNCAO RH80 CSKLS PT2 MACRO V04.00 14-JAN-82 16:41:16 PA6E 13-8 
T6 REGISTER SELECT TEST 


J 5 


SEQ 0061 


389 007530 

390 007536 

391 007544 

392 007550 

393 007552 

394 007560 

395 007564 

396 007566 

397 007574 

398 007600 

399 007602 

400 

401 

402 007604 

403 007604 

404 007610 

405 007614 
007620 

406 007624 

407 007630 

408 007634 

409 007640 

410 007644 

411 007652 

412 007660 

413 007666 

414 007672 

415 007674 

416 007702 

417 007706 

418 007710 

419 007716 

420 007722 

421 007724 

422 

423 

424 007726 

425 007726 

426 007732 

427 007736 

428 007742 

429 007750 

430 007754 

431 007762 

432 007770 

433 007776 
010002 
010004 

436 010012 

437 010016 

438 010020 

439 

440 

441 010022 

442 010022 

443 010026 

444 010032 


434 

435 


016037 

016037 

020337 

001015 

052737 

020337 

001007 

052737 

020337 

001001 

104011 


004737 

010260 

010260 

010260 

010260 

010360 

010360 

010360 

016037 

016037 

016037 

020337 

001015 

052737 

020337 

001007 

052737 

020337 

001001 

104012 


004737 

010260 

010260 

012760 

010360 

016037 

016037 

052737 

020337 

001007 

052737 

020337 

001001 

104013 


004737 

010260 

010260 


000032 

001370 

MOV 

000042 

001400 

MOV 

001344 


CMP 

BNE 

160577 

001370 

BIS 

001370 


CMP 

BNE 

001527 

001400 

BIS 

001400 


CMP 

BNE 

EMT 


RNOF (RO) .RMOF I ;STORE RMOF IN INPUT BUFFER 
RMER2(R0),RMER2I .STORE RMER2 IN INPUT BUFFER 

R3.RMDAI 

20i 

fXNUOF.RMOFI 

R3.RM0FI 

20i 

#XNUER2.RMER2I 

R3.RMER2I 

20i 

11 


TEST REG SEL 2 FOR S-A-0 


022230 


JSR 

PC.CNTCLR 

GO CLEAR CONTROLLER 

000006 


MOV 

R2.RMDA(RC) 

LOAD RMDA 

000032 


MOV 

R2.RMOF(RO) 

LOAD RMOF 

000032 


MOV 

R2.RM0F (RO) 

LOAD RMOF AGAIN TO SET SSEI 

000042 


MOV 

R2.RMER2(R0> 

LOAD RMER2 

000020 


MOV 

R3.RMLA(R0) 

LOAD RMLA 

000036 


MOV 

R3.RMHR(R0) 

LOAD RMHR 

000046 


MOV 

R3.RMEC2(R0) 

LOAD RMEC2 


001344 

MOV 

RMDA(RO) .RMDAI 

STORE RMDA IN INPUT BUFFER 

000032 

001370 

MOV 

RMOF(RO).RMOFI 

STORE RMOF IN INPUT BUFFER 

000042 

001344 

001400 

MOV 

CMP 

BNE 

RM£R2(R0) .RMER2I 
R3.RMDAI 

30i 

.'STORE RMER2 IN INPUT 

160577 

001370 

001370 

BIS 

CMP 

BNE 

fXNUOF.RMOFI 
R3.RM0F I 

30i 


001527 

001400 

001400 

BIS 

CMP 

8NE 

EMT 

PXNUER2.RMER2I 

R3.RMER2I 

30 i 

12 



JEST 

$0$: 


REG SEL 2 FOR S-A-1 


022230 


JSR 

000014 


MOV 

000034 


MOV 

000076 

000000 

MOV 

000030 


MOV 

000014 

001352 

MOV 

»»» 

001372 

001352 

MOV 

BIS 

001352 


CMP 



BNE 

176000 

001372 

BIS 

001372 


CMP 



BNE 



EMT 


PC.CNTCLR ;G0 CLEAR CONTROLLER 

R2.RMER1 (RO) .‘LOAD RMER1 

R2.R*DC(R0> .’LOAD RMDC 

#ILF76,RMCS1 (RO) .LOAD RMCS1 

R3,R*SN(R0) .‘LOAD RMSN 

Rf«R1(R0),RNER1I .‘STORE RMER1 IN INPUT BUFFER 

RMDC(RO) .RMDCI .‘STORE RMDC IN INPUT BUFFER 

# A CILF76.RMER1I 

R3.AMER1I 

40i 

IXNUDC, RMDCI 
R3.RMDCI 


.TEST REG SEL 
40$: 


4 fOR S-A-0 


022230 

JSR 

PC.CNTCLR 

000014 

MOV 

R2.RMER1 (RO) 

000032 

MOV 

R2.RM0F (RO) 


GO CLEAR CONTROLLER 
LOAD RMER1 
LOAD RMOF 
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5 


SEO 006 <? 


K 



010036 

010260 

000032 



MOV 

R2.RM0F ( RO ) 

LOAD RMOF AGAIN TO SET SSEI 


445 

010042 

010260 

000034 



MOV 

R2.RMDC (R0; 

LOAD RMDC 


446 

010046 

010360 

000026 



MOV 

R3.RMDT (RO) 

LOAD RMDT 


447 

010052 

010360 

000042 



MOV 

R3,RMER2(R0) ; 

LOAD RMER2 


448 

010056 

010360 

000044 



MOV 

R3.RMEC1 (RO) 

LOAD RMEC1 


449 

010062 

016037 

000014 

001352 


MOV 

RMER1 (RO) .RMER1I 

/STORE RMER1 IN INPUT 

BUFFER 

450 

010070 

016037 

000032 

001370 


MOV 

RMOF (RO) ,RMOF J ; 

STORE RMOF IN INPUT BUFFER 


451 

010076 

016037 

000034 

001372 


MOV 

RMDC(RO) .RMDCI 

STORE RMDC IN INPUT BUFFER 


452 

010104 

020337 

001352 



CMP 

R3.RMER11 



453 

010110 

001015 




BNE 

50$ 



454 

010112 

052737 

160577 

001370 


BIS 

/TXNUOF.RNOFI 



455 

010120 

020337 

001370 



CMP 

R3.RM0F I 



456 

010124 

001007 




BNE 

50i 



457 

010126 

052737 

176000 

001372 


BIS 

fXNUDC. RMDCI 



458 

010134 

020337 

001372 



CMP 

R3.RMDCI 



459 

010140 

001001 




BNE 

50l 



460 

010142 

104014 




EMT 

14 



nO 1 

462 





:TEST 

REG SEL 

■r* 

0 

JO 

CM 

1 

> 

1 

*4 



463 

010144 




$0$: 





464 

010144 

004737 

022230 



JSR 

PC.CNTCLR 

GO CLEAR CONTROLLER 


465 

010150 

010260 

EM 



MOV 

R2.RMDA(R0) 

LOAD RMDA 


466 

010154 

010260 

000042 



MOV 

R2.RMER2(R0) 

LOAD RMER2 


467 

010160 

010360 

000012 



MOV 

R3.RMDS(R0> 

LOAD RMDS 


468 

010164 

010360 

000032 



MOV 

R3.RM0F (RO) 

LOAD RMOF 



010170 

010360 

000032 



MOV 

R3.RM0FCR0) 

LOAD RMOF AGAIN TO SET SSEI 


469 

010174 

016037 

KWH 

001344 


MOV 

RMDA(RO) .RMOAI 

STORE RMDA IN INPUT BUFFER 


470 

010202 

016037 

000042 

001400 


MOV 

RMER2CR0) .RMER2I 

.•STORE RMER2 IN INPUT 

BUFFER 

471 

010210 

020337 

001344 



CMP 

R3.RMDAI 



472 

010214 

001007 




BNE 

60i 



473 

010216 

052737 

001527 

001400 


BIS 

AXNUER2.RMER2I 



474 

010224 

020337 

001400 



CMP 

R3.RMERZI 



475 

010230 

001001 




BNE 

60i 



476 

010232 

104015 




EMT 

15 



hf ( 

478 





.-TEST 

REG SEl 

J FOR S-A-0 



479 

010234 




60$: 





480 

010234 

004737 

022230 



JSR 

PC.CNTCLR 

;G0 CLEAR CONTROLLER 


481 

010240 

010260 

000014 



MOV 

R2.RMSRKR0) 

.•LOAD RMER1 


482 

010244 

010260 

000006 



MOV 

RZ.RMDA(RO) 

.'LOAD RMDA 


483 

010250 

010360 

000034 



MOV 

R3.RM0C(R0) 

.-LOAD RMDC 


484 

010254 

010360 

000042 



MOV 

R3.RMER2(R0) 

;LQAD RMER2 


485 

010260 

016037 

000014 

001352 


MOV 

RMER1 (RO).RMERII 

.•STORE RMER1 IN INPUT 

BUFFER 

486 

010266 

016037 


001344 


MOV 

RMDA(RO) .RMDAI 

.•STORE RMDA IN INPUT BUFFER 


487 

010274 

020337 

001352 



CMP 

R3.RMER1I 



488 

010300 

001004 




BNE 

7 oi 



489 

010302 

020337 

001344 



CMP 

R3.RMDAI 



490 

010306 

001001 




BNE 

?oi 



491 

010310 

104016 




EMT 

16 



492 










493 





: TEST 

REG SEL 

8 FOR S-A-1 



494 

010312 




>0%: 





495 

010312 

004737 

022230 



JSR 

PC.CNTCLR 

GO CLEAR CONTROLLER 


496 

010316 

010260 

000032 



MOV 

R2.RM0F(RQ) 

LOAD RMOF 



010322 

010260 

000032 



MOV 

r2.rmof(ro) 

LOAD RMOF AGAIN TO SET SSEI 


497 

010326 

010260 

000034 



MOV 

R2,RMDC(R0) 

LOAD RMDC 


49 8 

010332 

010260 

000042 



MOV 

R2.RMER2CR0) 

LOAD RMER2 



SEQ 0063 
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499 010336 

500 010342 

501 010346 

502 010352 
50? 010360 

504 C10366 

505 010374 

506 010402 

507 010404 

508 010412 

509 010416 

510 010420 

511 010426 

512 010432 

513 010434 

514 010436 


010360 

010360 

010360 

016037 

016037 

016037 

052737 

001015 

022737 

020337 

001007 

052737 

020337 

001001 

104017 


000012 MOV R3,RMDS(R0) 

000014 MOV R3.RMERKR0) 

000006 MOV R3.RMDA(R0) 

000032 001370 MOV RMOF (RO) .RMOF I 

000034 001372 MOV RMDC(RO) .RMDCI 

000042 001400 MOV RMER2CR0) .RMER2I 

160577 001370 BIS AXNUOF.RMOFI 

BNE 80$ 

176000 001372 CMP 0XNUDC. RMDCI 

001372 CMP R3.RMDCI 

BNE 80$ 

001527 001400 BIS AXNUER2.RHER2I 

001400 CMP R3.RMER2I 

BNE 80$ 

EMT 17 


; REGISTER SELECT 16 IS TESTED BY THE HR TEST 


LOAD RMDS 
LOAD RMER1 
LOAD RMDA 

STORE RMOF IN INPUT BUFFER 
STORE RMDC IN INPUT BUFFER 

.•STORE RMER2 IN INPUT BUFFER 


;*TEST 7 


DRIVE TYPE TFST 


010436 

010436 

010440 

010442 

010446 

010452 

010456 

519 

520 010464 

521 010472 

522 010500 

523 010502 

524 010510 

525 010512 

526 010516 

527 010524 

528 010526 

529 010532 

530 

531 


010532 

010532 

010534 

010536 

010542 

010546 

010552 

532 

533 010560 

534 010564 

535 010572 


000004 

000240 

012706 

013700 

013701 

012737 

016037 

022737 

001414 

022737 

001410 

010037 

062737 

104057 

000137 


001100 

001276 

001466 

000007 

000026 

020026 


001136 

000026 

021120 


000004 

000240 

012706 

013700 

013701 

012737 

004737 

016037 

042737 


001226 

001142 

001142 


024026 001142 


001136 


001100 

001276 

001466 

000010 

022230 

000000 

173777 


001226 


001142 

001142 


SCOPE 

NOP 

MOV 

MOV 

MOV 

MOV 


;*TEST 10 


TST10: 


SCOPE 

NOP 

MOV 

MOV 

MOV 

MOV 


#STACK,SP 

9BASE.R0 

TSTQUE.R1 

#7,$TESTN 

RMDT (RO) .S8DDAT 
fSNGPRT.SBDDAT 
10 $ 

#DULPRT.$8DDAT 

10 $ 

R0,$8DADR 

#RMDT,$8DADR 

57 

$EOSP 


SCOPE CALL 

LOAD THE STACK POINTER 

RO = UNIBUS ADDRESS 

R1 = POINTER TO DEVICE 

;SET TEST NUMBER IN APT MAIL BOX 

STORE RMDT AT $8DDAT 
SINGLE PORT RM80?? 

YES' 1 

DUAL ’PORT RM80?? 

YES 1 1 

LOAD 'BAD ADDRESS 


;G0 TO NEXT DEVICE 


DEVICE AVAILABLE TEST 


.•SCOPE CALL 

ASTACK.SP .‘LOAD THE STACK POINTER 

$6ASE.60 ;R0 = UNIBUS ADDRESS 

TSTQuMl ;R1 = POINTER TO DEVICE 

#10«$t£sTN ; ; SET TEST NUMBER IN APT MAIL BOX 

PC.CNTCLR ;G0 CLEAR CONTROLLER 

RMCS1 (RO) .$6DDAT .-STORE RMCS1 AT $6DDAT 

# a cdva.$b6dat .-CLEAR ALL BUT DVA 


C2RNCA0 RM80 DSKLS PT2 MACRO V04.00 14-JAN-82 16:41:16 PA6E 13-11 
TIO OEVICE AVAILABLE TEST 


m 5 


SEQ 0064 


536 010600 

537 010602 

538 010610 

539 010614 

540 010616 

541 

542 


010616 

010616 

010620 

010622 

010626 

010632 

010636 

543 

544 

545 010644 

546 010652 

547 010660 

548 010666 

549 010674 

550 010702 

551 

552 010710 

010714 

010716 

553 010720 

554 

555 

556 010722 

557 010722 
010730 

558 010734 

559 010740 

560 010742 

561 

562 

563 010746 

564 010754 

565 010760 

566 010766 

567 010774 

568 010776 

569 011002 

570 

571 011004 

572 

573 

574 011006 

575 011006 

576 011014 
011022 

577 011026 


001 I 
01272 
010037 
104060 


004000 

001136 


000004 

000240 

012706 

013700 

013701 

012737 


012737 

012737 

012737 

012737 

012737 

012737 


001100 

001276 

001466 

000011 


000000 

000000 

010000 

054420 

177777 

000061 


004737 022264 

000402 

104000 

000462 


012737 

004777 

005737 

001375 

004777 


016037 

010037 

062737 

042737 

001404 

005037 

104020 

000430 


012760 

012737 

004777 

005737 


001140 


10 $: 


BNE 

MOV 

MOV 

EMT 


10 $ 

#DVA,$GDDAT 

R0,$8DADR 

60 


BRANCH IF DVA SET 
SETUP EXPECTED 
SETUP REG ADDRESS 


;*TEST 11 


SEARCH TIMEOUT TEST 


TST11 : 


001226 


001420 

001446 

001444 

001416 

001414 

001412 


000144 

170602 

001534 

170572 


000014 

001136 

000014 

157777 

001140 


001534 


041401 

000144 

170510 

001534 


SCOPE 

NOP 

MOV 

MOV 

MOV 

MOV 


.•SCOPE CALL 

#STACK,SP .-LOAD THE STACK POINTER 

$BASE.RO ;R0 = UNIBUS ADDRESS 

TSTQUE.R1 ;R1 = POINTER TO DEVICE 

#1 1 ,$TESTN ; ; SET TEST NUMBER IN APT MAIL 


BOX 


.LOAD REGISTER OUTPUT BUFFER WITH COMMAND PARAMETERS 


MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

JSR 

BR 

EMT 

BR 


#O.RMDAO 
fO.RMDCO 
#FMT16.RM0F0 
#8UFFER.RMBA0 
#-1 .RMWCO 
#WD!G0,RMCS10 

PC.EN8SCH 

10 $ 

50$ 


SECTOR=0=TRACK 
CYLINDERS 
16 BIT FORMAT 
STARTING BUFFER ADDRESS 
WORD COUNT 
WRITE DATA COMMAND 

EXECUTE DATA COMMAND TO POINT WHERE 
SEARCH IS ENABLED USING SUBROUTINE. 
BRANCH TO 10$ IF NO ERROR 

SLOE REST PF TEST 


001142 

001136 

001142 


000024 

001534 


:START THE CLOCK AND WAIT FOR 100 MS 
10 $: 

MOV #100. .WATCH ;SET WATCHDOG TIMER VALUE 

JSR PC.iCLOCK .‘START THE CLOCK 

20$: TST WATCH 

BNE 20$ 

JSR PC.iSTOPCL .-STOP THE CLOCK 

.-VERIFY THAT OPI IS WOT SET (SEARCH TIMEOUT IS DISABLED) 

MOV RMERKROJ.SBDDAT ;STORE RMER1 AT SBDDAT 

MOV R0.S6DADR ;SET UP fOR ERROR MSG 

ADD #RM£R1 .S8DADR 

81 C #*COPI. SBDDAT 

8EQ 30$ .-BRANCH IF NO ERROR 

CLR SGDDAT 

EMT 20 

DISABLED 

BR 50$ .-SKIP 

;ENABLE SEARCH TIMEOUT. THEN WAIT 100 MS 
30$: 

MOV #DMD!MUR!DBEN!MOC.RMMR1(RO> jLOAD RMMR1 
MOV #100. .WATCH ;§ET WATCHDOG TIMER VALUE 

JSR PC.aCLOCK ;START THE CLOCK 

40$: TST WATCH 
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SEQ 0065 


578 011032 

579 011034 

580 

581 

582 011040 

583 011046 

584 011054 

585 011056 

586 011064 

587 011066 

588 

589 


011066 

011066 

011070 

011072 

011076 

011102 

011106 

590 

591 011114 

592 011120 

593 011126 

594 

595 

596 011132 

597 

598 011136 

599 011144 

600 011152 

601 011154 

602 011156 

603 

604 

605 011160 

606 011160 

607 011166 

608 011174 

609 011202 

610 011210 
611 011212 

612 011214 

613 

614 

615 011216 

616 011216 

617 011224 

618 011232 

619 011240 

620 011246 

621 011254 


001375 

004777 


016037 

042737 

001004 

012737 

104021 


170500 


000014 

157777 


000004 

000240 

012706 

013700 

013701 

012737 

010037 

062737 

005037 


016037 

042737 

001402 

104031 

000517 


012760 

012760 

016037 

042737 

001402 

104000 

000500 


012737 

012737 

012737 

012737 

012737 

012737 


40$ 

PC.8ST0PCL 


;ST0P THE CLOCK 


001142 

001142 


;OPI SHOULD NOW 3E SET (SEARCH TIMEOUT IS ENABLED) 


020000 001140 


RMER1 (RO) ,$8DDAT 

#*COPI,$BDDAT 

50$ 

#0PI ,$GDDAT 
21 


; STORE RMER1 AT S8DDAT 


001100 

001276 

001466 

000012 001226 
001136 

000014 001136 
001140 


004737 022230 


000014 001142 
167777 001142 


000000 

000005 

010000 

054420 

177777 

000061 


011262 004737 022264 


; •TEST 12 


SET DTE TEST 


• - *************************************************************** 


TST12: 


SCOPE 

NOP 

MOV 

MOV 

MOV 

MOV 


#STACK, SP 
S8ASE.R0 
TSTQUE.R1 
#12,$TtSTN 

R0.S8DADR 
#RMER1 .$8DADR 
$GDDAT 


.•SCOPE CALL 

.'LOAD THE STACK POINTER 

;R0 = UNI BUS ADDRESS 

;R1 = POINTER TO DEVICE 

;;SET TEST NUMBER IN APT MAIL BOX 

.•SETUP ERROR MSG 


.•INITILAIZE AND VERIFY THAT DRIVE TIMING ERROR IS RESET 
JSR PC.CNTCLR ;G0 CLEAR CONTROLLER 


RMER1 (RO) .I8DDAT 
fCDTE.SBDDAT 
10 $ 

31 

50$ 


; STORE RMER1 AT $6DDAT 
.•BRANCH IF DTE=0 
.SKIP REST OF TEST 


000001 000024 
000005 000024 
000014 001142 
167777 001142 


001420 

001446 

001444 

001416 

001414 

001412 


:SET MAINTENANCE INDEX PULSE AND VERIFY DTE REMAINS RESET 
10$: 

MOV fOMD.RMMRI (RO) .‘LOAD RMMR1 

MOV #DMd!mI.RMMA1(R0) .‘LOAD RMMR1 

MOV RMER1(R6).$8DDAT .-STORE RHER1 AT S8DDAT 

BIC #*CDTE.$BODAT 

BEQ 20$ 

EMT 

BR 50$ .-COMPARE SHOULD BE RESET 

;EXECUTE DUMMY DATA COMMAND TO ENABLE SEARCH 
£0$: 

MOV #O.RMDAO 

MOV #5.RMDC0 

MOV #FMT16.RM0F0 

MOV IBUFFER.RNBAO 

MOV f-1 .RMHCO 

MOV #WDfGO,RMCSlO 

JSR PC.ENBSCH .‘EXECUTE DATA COMMAND (0 POINT WHERE 

-SEARCH IS ENABLED USING SUBROUTINE. 


j 
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SEQ 0066 


011266 

011270 

624 011272 

625 

626 

627 

628 011274 

629 011274 

630 011302 

631 

632 

633 

634 

635 

636 011310 

637 011316 

638 011324 

639 011326 

640 011330 

641 

642 

643 011332 

644 011332 

645 011340 

646 011346 

647 

648 

649 0M354 
65C 011362 

651 011370 

652 011376 

653 011404 

654 011406 

655 011414 

656 

657 011416 

658 

659 


000402 

104000 

000451 


012760 

012760 


016037 

042737 

001402 

104023 

001432 


012760 

012760 

0127o0 


012760 

012760 

016037 

042737 

001004 

012737 

104024 


051441 

051401 


000014 

167777 


051403 

051443 

051403 


051441 

051401 

000014 

167777 


.•BRANCH TO 30$ IF NO ERROR 


000024 

000024 


00' i2 
00 1 1 4 


.-WITH SEARCH ENABLED. SET AND RESET SECTOR PULSE TO SET ENABLE 
;SEARCH TLOP. 

50$: 

MOV #DMD ! MUR ! DBEN ! MOC ! MSEN ! MS .RMMR1 (RO) .-LOAD RMMR1 

MOV #DMD . 1 MUR ! DBEN ! MOC! MSEN, RMMR1 (RO) .-LOAD RMMR1 

;SET SECTOR PULSE AND VERIFY DTE DOES NOT SET 
; PUTMR1 #DMD! MUR! DBEN! MOC! MSEN! MS 

; PUTMR1 ADMD! MUR! DBEN! MOC! MSEN 


RMER1 (RO) ,$BDDAT 

#*CDTE,$BDDAT 

40$ 

23 


.•STORE RMER1 AT S8DDAT 


000024 

000024 

000024 


000024 

000024 

001142 

001142 


.•FORCE SECTOR COMPARE 
40$: 

MOV #DMD! 
MOV #DMD! 
MOV #DMD! 


.•COMPARE SHOULD BE RESET 


#DMD!MUR!DBEN!M0C!MSEN!MSC.RMMR1 (RO) 
#DMD ! MUR ! DBEN !MOC ! MSEN ! MSC ! MS .RMMR1 (RO) 
fDMD.'MUR !D0EN!MOC JMSEN.'MSC .RMMR1 (RO) 


LOAD RMMR1 
LOAD RMMR1 
LOAD RMMR1 


.-SET SECTOR PULSE AND VERIFY DTE SETS 


010000 001142 


.-•TEST 13 


#DMD .'MUR! DBEN! MOC .'MSEN.' MS, RMMR1 (RO) .-LOAD RMMR1 

#DMD!MUR!DBEN!M0C!MSEN,RMMR1<R0) .LOAD RMHR1 

RMER1 (RO) .S6DDAT ; STORE RMER1 AT S8DDAT 

#*CDTE,S8DDAT 
50 $ 

#DTE,$8DDAT 

24 

.•SECTOR COMPARE SET 


FORMAT CHANGE TEST 


011416 



TST13: 



011416 

000004 


SCOPE 


.•SCOPE CALL 

011420 

000240 


NOP 



011422 

012706 

001100 

MOV 

#STACK,SP 

.-LOAD THE STACK POINTER 

011426 

013700 

001276 

MOV 

SBASE.RO 

;R0 = UN J BUS ADDRESS 

011432 

013701 

001466 

MOV 

TSTQUE.R1 

;R1 - POINTER TO DEVICE 

011436 

012737 

000013 001226 

MOV 

#13,STESTN 

;;SET TEST NUMBER IN APT MAIL SOX 

011444 

012702 

011774 

MOV 

#50$. R2 

;R2=TABLE POINTER 


66 2 

663 

664 011450 

665 011450 

666 011454 

667 011460 

668 011466 


004737 022230 
011260 000032 
012760 000001 000024 
012760 000005 000024 


;1N1T1LA1ZE AND SET THE FORMAT BIT. USE INDEX PULSE TO CLEAR FORMAT CHANGE 

\ 0 %: 

JSR PC.CNTCLR ;G0 CLEAR CONTROLLER 

MOV (R2),RM0F<R0) .-LOAD FORMAT MODE IN RMOF 

MOV fDMD.RMNRI (RO) ; LOAD RMMR1 

MOV #dmd:mi,rmmrkro) .-LOAD R 1R1 


/ 
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SEO 0067 


669 

670 

671 011474 

672 01 1 502 

673 011510 

674 011516 

675 011524 

676 011532 

677 

678 011540 

011544 

011546 

679 011550 

680 
681 
682 

683 011552 

684 011552 

685 011560 

686 011566 

687 011574 

688 

689 

690 011602 

691 011610 

692 011616 

693 011620 

694 011624 

695 011632 

696 011636 

697 011642 

698 011650 

699 011652 

700 

701 

702 011654 

703 011654 

704 

705 

706 011662 

707 011670 

708 011676 

709 

710 

711 011704 

712 011712 

713 011720 

714 011726 

715 011734 

716 011736 

717 011742 

718 011750 

719 011756 

720 011760 

721 

722 


012737 

012737 

016237 

012737 

012737 

012737 


000000 

000005 

000002 

054420 

177777 

000061 


001420 

001446 

001444 

001416 

001414 

001412 


004737 022264 

000402 

104000 

000514 


012760 

012760 

012760 

012760 


016037 

042737 

001416 

010037 

062737 

005037 

011237 

016237 

104025 

000453 


051403 

051443 

051403 

051401 


000014 

167777 

001136 

000014 

001140 

001174 

000002 


000024 

000024 

000024 

000024 


001142 

001142 


001136 


001176 


012760 051405 000024 


012760 

012760 

012760 


012760 

012760 

016037 

042737 

001012 

010037 

062737 

012737 

104027 

000410 


051403 

051443 

051403 


051441 

051401 

000014 

167777 

001136 

000014 

010000 


; SETUP AND EXECUTE DUMMY DATA COMMAND USING OPPOSITE FORMAT 
MOV #O.RMDAO 

MOV #5,RMDC0 

MOV 2(fo).RM0FC 

MOV #8UFFER.RHBA0 

MOV #-1 .RMWCO 

MOV #WD!G0.RNCS10 


PC,EN8SCH 


EXECUTE DATA COMMAND TO POINT WHERE 
SEARCH IS ENABLED USING SUBROUTINE. 
BRANCH TO 20$ IF NO ERROR 


.FORMAT CHANGE FLOP SHOULD BE SET - VERIFY BY TRYING TC FORCE A 
^DRIVE TIMING ERROR WHICH SHOULD NOT SET. 


#DMD!MUR!0BEN!M0C!MSEN!MSC.RMMR1 (RO) a 
#DMD!MUR'DBEN!M0C.'MSEN.'MSC!MS.RMMR1 (RO) 
#DND!NUR!DBEN!M0C!NSEN!M$C,RNMR1 (RO) 
#DMD !MUR ! DBENIMOC IMSEN.RMMR1 (RO) 


LOAD RMMR1 
LOAD RMMR1 
LOAD RMMR1 
LOAD RMMR1 


.-VERIFY THAT DRIVE TIMING ERROR DIDNT SET 


RMER1 (RO) .S8DDAT 

# A CDTE.$BDDAT 

30$ 

R0.$8DADR 
0RMER1 «$BDADR 
$GDDAT 
(R2).$TMP0 
2(R2) ,$TMP1 
25 
60$ 


; STORE RMER1 AT S6DDAT 


.-SETUP ERROR MESSAGE 


;A FORMAT CHANGE 


;CLEAR THE FORMAT CHANGE FLOP W/INDEX PULSE 
30$: 

MOV #DMD!MUR!MEN!N0C!MSEN!MI,RMMR1(R0) 


.-LOAD RMMR1 


000024 

000024 

000024 


000024 

000024 

001142 

001142 


001136 

001140 


.‘ENABLE SEARCH AND FORCE SECTOR COMPARE 

MOV #0MDiMUR‘DBEN!M0C!MSEN!MSC t RMMR1(R0) .-LOAD RMMR1 

MOV #DNDJMUR!DBEN!M0C!NSEN!NSc!nS,RNNR1(R0) .'LOAD RMMR1 

MOV fDMDJMURJDBENIMOCJMSENJMSC.RMMRI (RO) .‘LOAD RMMR1 

.-SET DTE W/ANOTHER SECTOR PULSE • VERIFY DTE IS SET 
' MOV fDMDIMURJDBENiMOCfMSENJHS^RMMRHRO) .LOAD WJW 

MOV #DMDIMUR!DBEN!MCC!NSEN,RNNR1<RC) ;LOAD RMMR1 

MOV RMER1 (RO) .$8DDAT .-STORE RMER1 AT IfiDDAT 

bic #*cdte.sb6dat 

MOV R04BDADR .‘SETUP ERROR MESSAGE 

ADD fRMERI .S8DADR 

MOV #DTE.$GDDAT 

EMT 27 

BR 60$ 

;D0 TEST W/18 TO 16 FORMAT CHANGE DURING SECOND EXECUTION 
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SEQ 0068 


723 011762 

724 011762 

725 011766 

726 011770 

727 011772 

728 

729 011774 

730 011776 

731 012000 

732 012002 

733 

734 


012002 

012002 

012004 

012006 

012012 

012016 

012022 

735 

736 012030 

737 012034 

738 012040 

739 

740 

741 012046 

742 012054 

743 012060 
012060 

744 012066 

745 012074 

746 012102 

747 012110 

748 012112 

749 012114 

750 012116 

751 012122 

752 012124 

753 012126 

754 012132 
012132 

755 012140 

756 012146 

757 012154 

758 012162 

759 012164 

760 012166 

761 012170 

762 012176 

763 012200 

764 

765 

766 012202 

767 012202 


022702 

001005 

005722 

000626 


010000 

000000 

010000 


011774 


000004 

000240 

012706 

013700 

013701 

012737 

004737 

010037 

062737 


012760 

012702 

012760 

012760 

016037 

042737 

001406 

005302 

001361 

005037 

104000 

000501 

012702 


012760 

012760 

016037 

042737 

001007 

005302 

001361 

012737 

104030 

000453 



CMP 

BNE 

#5Q$,R2 

60S 

,-eRANCH IF DONE TEST 


TST 

<R2)* 

.’MOVE POINTER 


BR 

10S 

; REPEAT TEST 

50$: 

.WORD 

FMT16 

.’16-18 FORMAT CHANGE 

.WORD 

0 

; 18-16 FORMAT CHANGE 

60S: 

.WORD 

FMT16 

.’END OF TEST 


.-•TEST 14 


PROM STROBE TEST 


TST14: 


001100 

001276 

001466 

000014 

022230 

001136 

000024 


000001 

000021 

004001 

000001 

000024 

177737 


001140 


000021 

004001 

ooooo : 

000024 

177737 


001226 


001136 


000024 


000024 

000024 

001142 

001142 


SCOPE 

NOP 

MOV 

NOV 

MOV 

MOV 


;SET DIAGNOSTIC 
MOV 


000024 

000024 

001142 

001142 


7 000040 001140 


fSTACK.SP 

S8ASE.R0 

TSTQUE.R1 

#14,$TESTN 

PC.CNTCLR 
R0.S8DADR 
fRMMRI .SBDADR 


.-SCOPE CALL 

.-LOAD THE STACK POINTER 

;R0 = UNIBUS ADDRESS 

;R1 * POINTER TO DEVICE 

; ; SET TEST NUMBER IN APT MAIL BOX 

;G0 CLEAR CONTROLLER 
.•SETUP ERROR MESSAGE 


MODE AND TRY TO RESET PROM STROBE 

fDMD.RMMRI (RO) .'LOAD RMMR1 

I17..R2 ;R2=NAXINUM # CLOCK PULSES 

fDMD.'MCLK.RMMRKRO) .’LOAD RMMR1 

fDMD.RMMRI (RO) .’LOAD RMMR1 
RMMRIcROJ.SBDDAT .’STORE RfflRI AT S6DDAT 

#*CWC.S6DDAT 
6 $ 

R2 

58 

SGDDAT 


60S 
#17.. I 


fDMD.'MCLK.RMMRKRO) _ ;LOAD RMMR1 
fDMD.RMMRI (RO) ;LOAD RMMR1 
RMMRl(RO).SBDDAT .’STORE RMMR1 AT SBDDAT 

#*CUC SBDDAT 

201 ' .-EXIT LOOP WHEN PROM STROBE ON 

1?J 

#WC. SGDDAT 

30 

60S 


012702 000003 


: VERIFY PROM STROBE IS ON FOR 3 BIT CLOCKS 

iOt: , „ 

MOV #3..R2 


I 
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768 012206 




25$: 




012206 

012760 

004001 

000024 


MOV 

#DMD!HCLK.RHMR1(R0> ;LOAD RMMR1 

769 012214 

012760 

000001 

000024 


MOV 

#DMD,RMHR1(R0) 

.-LOAD RMMR1 

770 012222 

016037 

000024 

001142 


MOV 

RMNR1 (RO) .$BDDAT 

.-STORE RMMR1 AT $BDDAT 

771 012230 

042737 

177737 

001142 


BIC 

#*CWC ,$BDDAT 


772 012236 

001005 




BNE 

30$ 

.-BRANCH IF PROM ST0R8E DID NOT 

773 







.-DROP EARLY 

774 012240 

012737 

000040 

001140 


MOV 

#WC.$GDDAT 


775 012246 

104032 




EMT 

32 


776 012250 

000427 




BR 

60$ 


777 012252 

005302 



30$: 

DEC 

R2 


778 012254 

001354 




BNE 

25$ 


779 








780 




.-VERIFY 

PROM STROBE IS OFF FOR 8 BIT CLOCKS 

781 012256 

01270? 

000010 



M0 V ' 

#8..R2 


782 012262 




40$: 




012262 

012760 

004001 

000024 


MOV 

RDMDJNCLK.RMMRKRO) .LOAD RMNR1 

783 012270 

012760 

000001 

000024 


MOV 

#DND,RNHRl <R0) 

; LOAD RMMR1 

784 012276 

016037 

000024 

001142 


MOV 

RMMR1 (RO) ,$8DDAT 

.-STORE RNNR1 AT $8DDAT 1 

785 012304 

042737 

177737 

001142 


BIC 

#'CWC.$BDDAT 


786 012312 

001404 




BEO 

50$ 

.-BRANCH IF PROM STROBE 

787 012314 

005037 

001140 



CLR 

$GDDAT 

.-DID NOT SET EARLY 

788 012320 

104033 




EMT 

33 


789 012322 

000402 




BR 

60$ 


790 012324 

005302 



50$: 

DEC 

R 2 


791 012326 

001355 




BNE 

40$ 


792 012330 




60$: 



! 

793 








794 




;;***•* 








.-•TEST 

15 

SYNC WORD COUNT 

INHIBIT TEST 

012330 




TST15: 




012330 

000004 




SCOPE 


.SCOPE CALL 

012332 

000240 




NOP 



012334 

012706 

001100 



MOV 

RSTACK.SP 

.-LOAD THE STACK POINTER 

012340 

015700 

001276 



MOV 

SBASE.RO 

;R0 = UNIBUS ADDRESS 

012344 

013701 

001466 



NOV 

TST0UE.R1 

;R1 = POINTER TO DEVICE 

012350 

012737 

000015 

001226 


MOV 

#15,$TESTN 

;;SET TEST NUMBER IN APT NAIL BOX 

795 








796 




.-SETUP REGISTER 

OUTPUT BUFFER FOR SUBROUTINES 

797 012356 

012737 

000005 

001446 


NOV 

R5.RNDC0 

.-CYLINDERS 

798 012364 

012737 

000000 

001420 


NOV 

fO.RNDAO 

; SECTORS, TRACK=0 

799 012372 

012737 

010000 

001444 


NOV 

#FAri6.RN0F0 

; 1 6 BIT FORMAT 

80 <r 012400 

012737 

054420 

001416 


NOV 

I8UFFCR.RNBA0 

.-STARTING BUFFER ADDRESS 

801 012406 

012737 

177777 

001414 


NOV 

f-1 .RNWCO 

.-WORD COUNT , 

802 012414 

012737 

000061 

001412 


NOV 

IWD1G0.RNCS10 

.-WRITE DATA COMMAND 1 

803 








804 012422 

004737 

022264 



JSR 

PC.ENBSCH 

; EXECUTE DATA C0F9IAM> TO POINT WHERE 








.’SEARCH IS ENABLED USING SUBROUTINE. 

012426 

000402 




BR 

10$ 

.‘BRANCH TO 10$ IF NO ERROR 

012430 

104000 




EMT 



805 012432 

000562 




BR 

120$ 

.-SKIP IF FAILURE 

806 012434 




10$: 




807 012434 

004737 

023136 



JSR 

PC.SCTCMP 

.-FORCE SECTOR COMPARE USING SUBROUTINE 

012440 

000402 




BR 

20i 

; BRANCH TO 20$ IF NO ERROR 

012442 

104000 




ENT 




F 6 
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809 

810 
811 
812 


012444 

000555 



BR 120$ 






.-CA-M NOW STEP DATA TIMING SEQUENCER WITH SECTOR COMPARE SET 

012446 

012702 

000000 


:STEP THE SEQUENCER TO LOCATION 10(10) WHILE CHECKING 
$0$: MOV #0.R 2 ;R2=S EQUENCER ADDRESS 

•plfs" 

012452 

012452 

012460 

012760 

012760 

055401 

051401 

000024 

000024 

; PULSE MAINTENANCE CLOCK UNTIL PROM STROBE SETS 
$0$: 

MOV RDMD.'MURIDBENIMOC.'MSEN.'MCLK.RMMRI (RO) 

MOV #DMD! MUR IDBEN.'MOC IMSEN.RMMR1 (RO) 

.LOAD 

.‘LOAD 

012466 

012472 

012476 

012500 

016003 

032703 

001765 

005202 

000024 

000040 


.SEE IF PROM STROBE IS SET 

MOV RMMR1 (RO) ,R3 .‘STORE RMMR1 AT R3 

BIT #WC.R3 

BEQ 30$ .’ISSUE NEXT BIT CLOCK 

INC R 2 .-INCREMENT SEQUENCER ADDRESS 


814 

815 


819 

820 
821 


825 

826 

827 012502 

828 012506 

829 012514 

830 012516 

831 012522 

832 012526 

833 012534 

834 012540 

835 0.2542 

836 

837 

838 012544 

839 012544 

840 012550 

841 

842 

843 012552 

844 012552 

845 012560 

846 

847 

848 012566 

849 012572 

850 012576 

851 012600 

852 

853 

854 


010337 

042737 

001413 

005037 

010037 

062737 

010237 

104034 

000516 


022702 

00U14 


012760 

012760 


0160C3 

032703 

001365 

000724 


001142 


MOV 

175777 

001142 

BIC 



BEQ 

001140 


CLR 

001136 


MOV 

000024 

001136 

ADD 

001174 


MOV 



cMT 



BR 


.‘BRANCH IF PLFS IS ZERO 


000012 


055401 000024 

051401 000024 


000024 

000040 


.•CHECK "LOOKING FOR SYNC" - SHOULD BC 2ER0 UNTIL LOCATION 11 
R3.S8DDAT 
#*CPLFS,$8DDAT 
50$ 

SGDDAT 
RO.SBDADR 
#RMNR1 ,$8DADR 
R2.STMP0 
34 

120$ .SKIP REST OF TEST 

;EXIT LOOP IF SEQUENCER NOW AT LOCATION 10 
§ 0 $: 

CNP A10..R2 

BEQ 70$ 

.PULSE MAINTENANCE CLOCK UNTIL PROM STROBE RESETS 
60$: 

MOV fDND.'NURJDBEN.’NOCJNSENINCLK.RNMRI (RO) 

MOV #DMD!MUR!DBEN!MOC JMSEN.RMHRI(RO) 


.LOAD RMMR1 
.‘LOAD RMMR1 


.SEE If PROM STROBE IS RESET 
MOV RMHR1 (R0),R3 

BIT #WC.R3 

BNE 
BR 


.STORE RMMR1 AT R3 

;60 STEP SEQUENCER TO NEXT LOC 


856 

012602 

012702 

000020 


MOV 

857 






858 





; ISSUE 16 BJ 

859 

012606 




&0$: 

860 

012606 

012760 

055401 

000024 

NOV 

861 

012614 

012760 

051401 

000024 

MOV 

86 2 

012622 

005302 



DEC 

863 

012624 

001370 



BNE 


.-THE NEXT PROM STROBE SHOULD SET 'PLFS" AT LOCATION 11(10) OF THE 
;DATA TIMING SEQUENCER. 

> 0 %: 

#16.. R2 ;R2*NUMBER OF BIT CLOCKS 


#DMD!MUR!0BEN!MOC'MSEN!MCLK.RMMR1(R0) ;LOAD RMHR1 
#DMD!MUR!D6EN!M0C!MSEN.RMMRl(R0) .‘LOAD RMMR1 

11 $ 


864 


SEQ 0070 


CZRNCAO RM30 DSKlS PT2 MACRO V(K.OO 14-JAN-82 16:41:16 PA6E 13-18 
T15 SYNC WORD COUNT INHIBIT TEST 


SEO 0071 


865 

866 012626 

867 012634 

868 012642 

869 012644 

870 012652 

871 012656 

872 012664 

873 012666 

874 

875 

876 012670 

877 012670 

878 012674 
012674 

879 012702 

880 012710 

881 012712 

882 

883 

884 

885 012714 

886 

887 

888 012720 

889 012720 

890 012726 

891 012734 

892 012740 

893 012744 

894 012746 

895 012752 

896 012756 

897 012762 

898 012770 

899 012772 

900 012774 

901 012776 

902 

903 013000 


013000 

013000 

013002 

013004 

013010 

013014 

013020 

906 

907 

908 013026 

909 013034 

910 013042 


:& 6 SM m 


016037 

042737 

001012 

012737 

010037 

062737 


104035 

000444 


002000 

001136 

000024 


012702 000003 


012"60 

012760 

005302 

001370 


055401 

051401 


012702 000040 


012760 

012760 

016003 

042703 

001413 

00503/ 

010337 

010037 

062737 

104036 

000402 

005302 

001350 


055401 

051401 

000024 

177737 

001140 

001142 

001136 

000024 


000004 

000240 

012706 

013700 

013701 

012737 


0 i 2737 
012737 
012737 


001142 

001142 

001140 

001136 


.•VERIFY THAT ' VLFS " IS NOW SET 


NOV RMMRl (RO) .S8DDAT .'STORE RMMRl AT SBDDAT 

BIC »*CPLFS, SBDDAT 

BNE 90$ .-BRANCH IF PLFS IS SET 

NOV 0PlFS.$GDDAT .-SETUP ERROR MESSAGE 

MOV RO.SBDADR 

ADD #RMMR1 ,$BDADR 

EMT 35 

BR 120$ .-SKIP REST OF TEST 

; ISSUE 3 MORE BIT CLOCKS TO RESET PROM STROBE 
$0$: , , 

MOV R3.R2 

95$ * 

MOV #DMD ! MUR 1 DBE N ! MOC ! MSEN ! MC LK .RMMRl C RO) 

MOV #DMD!MUR!DBEN!MOC!MSEN, RMMRl (RO) 

DEC fit. 

BNE 95$ 


000024 

000024 


.-LOAD RMMR1 
.-LOAD RMMR1 


.-WITH ‘LOOKING FOR SYNC SET. FURTHER BIT CLOCKS SHOULD NOT SET 
'PRON STROBE 

* MOV «32..R2 ;R2«NUMB£R OF BIT CLOCKS 


000024 

000024 


: PULSE BIT CLOCK AND VERIFY PROM STROBE DOES NOT SET 
100 $: 

MOV #DMD!NUR!D6EN!M0C!MS£N!MCLK.RMMR1 (RO) 


.-LOAD RMMR1 


fDMD! MUR !D8EN!M0C!MSEN, RMMRl (RO) ;LOAD RMMR1 

RMMR1 (RQ).R3 .STORE AMMR1 AT R3 


001136 


RMNR1(RQ).R3 

f*CWC,R3 

110$ 

$6DDAT 
R3.$8DDAT 
RO.SBDADR 
fRMMRI .S8DADR 
36 


110 $: 


120 $: 


; STORE AMMR1 AT R3 

; BRANCH IF PROM STROBE IS 0 
.•SETUP ERROR MESSAGE 


CONTINUE FOR 32 BIT CLOCKS 
.END OF TEST 


.••TEST 16 


SYNC DETECTION TEST 


001100 

001276 

00>466 

000016 


000000 

000005 

010000 


001226 


001420 

001446 

001444 


tST16: 

SCOPE 

NOP 

MOV 

MOV 

MOV 

MOV 

.-SETUP REGISTER 
MOV 
MOV 
MOV 


.•SCOPE CALL 

fSTACK.SP .LOAD THE STACK POINTER 

SBASE.RO ;R0 = UNIBUS ADDRESS 

TST0U§.R1 ;R1 = POINTER TO DEVICE 

#16.$T(:STN ;;SET TEST NUMBER IN APT MAIL BOX 

OUTPUT BUFFER FOR SUBROUTINES . 


fO.RMDAO 

#5.RMDC0 

#FMT16.RM0F0 


SECTOR 0. TRACK 0 


CYLINDER 
16 BIT MC 


H 6 


CZRNCAO RM80 DSKLS PT2 MACRO V04.00 14-JAN-82 16:41:16 PAGE 13-19 
T16 

#8UFFER.RN0AO 
#-1.RMWCO 
#RD!60.RMCS10 

PC.ENBSCH 

10 $ 

100 $ 

PC.SCTCMP 

20i 
100 $ 

PC.SETLFS 
50i 

100 $ 


SYNC DETECTION 

TEST 




911 013050 

012737 

054420 

001416 


MOV 

912 013056 

012737 

177777 

001414 


MOV 

913 013064 

012737 

000071 

001412 


MOV 

914 






915 013072 

004737 

022264 



JSR 

013076 

000402 




BR 

013100 

104000 




EMT 

916 013102 

000550 




BR 

917 013104 




10S: 


918 013104 

004737 

023136 



JSR 

013110 

000402 




BR 

013112 

104000 




EMT 

919 013114 

000543 




BR 

920 013116 




20$: 


921 013116 

004737 

023244 



JSR 

013122 

000402 




BR 

013124 

104000 




EMT 

922 013126 

000536 




BR 


.-BUFFER ADDRESS 
;CORD COUNT 
;READ DATA COMMAND 

; EXECUTE DATA COMMAND TO POINT WHERE 
.-SEARCH IS ENABLED USING SUBROUTINE. 
.-BRANCH TO 10$ IF NO ERROR 


.-FORCE SECTOR COMPARE USING SUBROUTINE 
.-BRANCH TO 20$ IF NO ERROR 


;SET "LOOKING FOR SYNC" USING SUBROUTINE 
.-BRANCH TO 30$ IF NO ERROR 


923 

924 

925 

926 

927 

928 

929 

930 

931 

932 

933 

934 

935 

936 

937 

938 

939 

940 

941 

942 

943 

944 

945 

946 

947 

948 

949 

950 

951 

952 

953 

954 

955 

956 

957 

958 

959 

960 


013130 

013130 

013134 

013140 

015146 

013152 

013160 

013160 

013166 

013174 

013202 

013210 

013212 

013220 

013222 

013224 

013224 

013226 

013230 


013234 

013234 

013242 

013250 

013256 

013264 

013266 

013272 

013274 

013276 

013276 

013300 

013302 

013306 


012702 

000020 



MOV 

010037 

001136 



MOV 

062737 

000024 

001136 


ADD 

005037 

001140 



CLR 

012760 

053401 

000024 

40$: 

MOV 

012760 

057401 

000024 


MOV 

012760 

053401 

000024 


MOV 

016037 

000024 

001142 


MOV 

042737 

177737 

001142 


BIC 

001405 




BEG 

012737 

177777 

001174 


MOV 

104037 




EMT 

00C500 



50$: 

BR 

005302 




DEC 

001354 




BNE 

012702 

000020 



MOV 




.-CLOCK ALL ; 




60S: 


012760 

055401 

000024 


MOV 

012760 

051401 

000024 


MOV 

016037 

000024 

177737 

001142 


NOV 

042737 

001142 


BIC 

001404 




8EQ 

005037 

001174 



CLR 

104037 




EMT 

000453 



70S: 

BR 

005302 




DEC 

001355 




BNE 

012702 

000040 



MOV 

012703 

000031 



MOV 


.-CLOCK ALL ONES SYNC PATTERN AND VERIFY SYNC IS NOT DETECTED 
; (USING PROM STORSE AS INDICATION) 

$ 0 $: 

#16.. R2 .-NUMBER OF ONE BITS 

RO.SBDADR .-SETUP ERROR MESSAGE 

#RMMR1 .$8DADR 
$GDDAT 

#MR1AAA!H8D.RMMR1(R0> .‘LOAD RMMR1 

#MR1 AAA IBRD JNCLK. RMMRI (RO) .'LOAD RMMRI 

#MR1AAA!NRD,RMNRl(R0> .-LOAD RMMRI 
RMMRI (RO). SBDDAT .-STORE RMMRI AT SBDDAT 

#'CWC, SBDDAT 
50$ 

#1 77777, $TMPO 
37 

100 $ 


R2 

40$ 

#16.. R2 


.-REPEAT FOR 16 BITS 
.-NUMBER OF ZERO BITS 


JIMR1 AAA !MCLK. RMMRI (RO) 
#MR1 AAA .RMMRI (RO) 

RMMRI (R0),S8DDAT 


#*CWC. SBDDAT 
70S 
ITMPO 
37 
100S 


.-LOAD RMMRI 
.-LOAD RMMRI 

; STORE RMMRI AT SBDDAT 



.-MAKE SUftE SYNC NOT DETECTED 

.-SKIP IF FAILURE 

.-REPEAT FOR 16 BITS 

;R2=NUMBER OF BITS 

,-R3=SYNC PATTERN FOR LEFT SHIFT 


I 6 
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T16 SYNC DETECTION TEST 


SEO 0073 


961 

962 
965 

964 013312 

965 013320 

966 013322 

967 013324 

968 013326 

969 013334 
013334 

970 013342 

971 013350 

972 013356 

973 013364 

974 013372 

975 013400 

976 013406 

977 013410 

978 013412 

979 013414 

980 013422 

981 013424 

982 

983 


013424 

013424 

013426 

013430 

013434 

013440 

013444 

984 

985 

986 013452 

987 Cl 3460 

988 013466 

989 013474 

990 013502 

991 0^510 

992 

993 013516 

013522 

013524 

994 013526 

995 013530 

996 013530 
013534 
013536 

997 015540 

998 013542 

999 013542 
013546 
013550 


012737 

000241 

006003 

103003 

052737 

013760 

052737 

013760 

042737 

013760 

016037 

042737 

001006 

005302 

001337 

012737 

104040 


001436 

004000 

001436 

004000 

001436 

OOOC24 

177737 


000004 

000240 

012706 

013700 

013701 

012737 


012737 

012737 

012737 

012737 

012737 

012737 


*tS7 

000402 

104000 

000442 

004737 

000402 

104000 


.•CLOCK THE BINARY SYNC PATTERN (10011000) AND VERIFY THAT SYNC IS 


051401 001436 


002000 001436 


:DETECTED 
80$: NOV 

CLC 
ROR 
BCC 
BIS 


000024 

001436 

000024 

001436 

000024 

001142 

001142 


90S: 


000040 001140 


001100 

001276 

001466 

000017 


000000 

000005 

010000 

054420 

177777 

000071 


004737 022264 

O'W'12 

W 

yw>4. s 1 f 


023136 


023244 


100 $: 


NOV 

BIS 

NOV 

BIC 

NOV 

NOV 

BIC 

ONE 

DEC 

BNE 

NOV 

ENT 


JNR1AAA.RNNR10 

R3 
90$ 

#NRD,RNNR10 

RNNR10.RNNR1 (RO) 
fNCLK.RNNRIO 
RNNR10.RNNRKR0) 
fNCLK.RNNRIO 
RNNR10.RNNRKR0) 
RNNR1 (R0).$8DDAT 
#*CWC.$6DDAT 
100 $ 

R2 

80$ 

fWC.SGDDAT 
40 


GENERATE VALUE OF RNNR1 

CLEAR THE CARR 

SHIFT RIGHT 

BRANCH IF C BIT CLEAR 

SET NRD IF PATTER BIT SETS 


LOAD RNNR1 

SET THE NAINTENANCE DATA CLK 
LOAD RNNR1 
RESET BIT CLOCK 
LOAD RNNR1 

STORE RNNR1 AT S6DDAT 


.•BRANCH IF PRON STROBE IS SET 
.•CONTINNE FOR 16 BIT CLOCKS 


.-END OF TEST 


.-•TEST 17 


ABORT SYNC DETECTION TEST 


TST17: 


001226 


001420 

001446 

001444 

001416 

001414 

001412 


SCOPE 

NOP 

NOV 

NOV 

NOV 

NOV 


; SCOPE CALL 

a STACK. SP .‘LOAD THE STACK POINTER 

S8ASE.R0 ;R0 = UNIBUS ADDRESS 

TSTQUE/Rl ;R1 * POINTER TO DEVICE 

#17.$TESTN ;;SET TEST NUNBER IN APT NAIL BOX 


.•SETUP REGISTER OUTPUT BUFFER FOR SUBROUTINES 


10 $: 


20 $: 


NOV 

NOV 

NOV 

NOV 

NOV 

NOV 

JSR 

BR 

ENT 

BR 

JSR 

BR 

ENT 

BR 

JSR 

BR 

ENT 


fO.RNOAO 
fS.RNOCO 
#FNT16,RNOFO 
A8UFFER.RNBA0 
#-1 .RNUCO 
#RD:60,RNCS10 

PC.ENBSCH 

10 $ 

50$ 

PC.SCTCNP 

20 * 

50$ 

PC.SETLFS 

30* 


SECTOR 0. TRACK 0 

CYLINDER 5 

16 BIT FORNAT 

STARTING BUFFER ADDRESS 

WORD COUNT 

READ DATA CONNAND 

EXECUTE DATA CONNAND TO POINT WHERE 
SEARCH IS ENABLED USING SUBROUTINE. 
BRANCH TO 10$ IF NO ERROR 


.-FORCE SECTOR CONPARE USING SUBROUTINE 
.•BRANCH TO 20$ IF NO ERROR 


;5ET 'tOQKING FOR SYNC” USING SUBROUTINE 
.•BRANCH TO 30$ IF NO ERROR 
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SEO 0074 


1000 013552 

1001 
10C2 

1003 

1004 

1005 013554 

1006 013554 

1007 

1008 

1009 013562 

1010 013566 

1011 013566 

1012 013574 

1013 013602 

1014 013610 

1015 013616 

1016 013620 

1017 013622 

1018 013624 

1019 013632 

1020 013636 

1021 013644 

1022 013646 

1023 

1024 

1025 


013646 

013646 

013650 

013652 

013656 

013662 

013666 

1026 

1027 

1028 013674 

1029 013702 

1030 013710 

1031 013716 

1032 013724 

1033 013732 

1034 

1035 013740 

013744 

013746 

1036 013750 

1037 013754 

1038 013754 
013760 
013762 

1039 013764 

1040 

1041 


000435 


012760 051441 000024 


012702 000020 


012760 

012760 

016037 

042737 

001013 

005302 

001361 

012737 

010037 

062737 

104041 


055441 

051441 

000024 

177737 


000040 

001136 

000024 


000004 

000240 

012706 

013700 

013701 

012737 


012737 

012737 

012737 

012737 

012737 

012737 


000403 

104000 

000137 

004737 

000402 

104000 

000565 


000024 

000024 

001142 

001142 


001140 

001136 


001100 

001276 

001466 

000020 


000000 

000005 

010000 

054420 

177776 

000063 


.‘LOOKING FOR SYNC INHIBITS WORD CLOCK. HOWEVER, "DRIVE TIMING ERROR" 
.•SHOULD RESET "LFS WORD COUNT INHIBIT* FLOP 
•FORCE DRIVE TIMING ERROR 
$ 0 $: 

MOV #MR1AAA!NS,RMMR1 (RO) .‘LOAD RMMR1 
.PULSE BIT CLOCK AND VERIFY PROM STROBE SETS 


#16., R2 


;R2. NUMBER OF BIT CLOCKS 


004737 022264 


.-•TEST 20 


#MR1AAA!NS!NCLK.RNMR1 (RO) ;LOAD RMMR1 

#MR1AAA!MS.RMMR1 (RO) .‘LOAD RMMR1 

RMMRl (R0),S8DDAT .‘STORE RMMR1 AT S6DDAT 

#*CWC,$8DDAT 

50$ 

R2 

40$ 

#WC,$GDDAT 
RO.SBDADR 
#RMMR1 ,$8DADR 
41 


SYNC GENERATION TEST 


TST20: 


001226 


001420 

001446 

001444 

001416 

001414 

001412 


SCOPE 

NOP 

MOV 

MOV 

MOV 

MOV 


.•SCOPE CALL 

fSTACK.SP .‘LOAD THE STACK POINTER 

SBASE.RO ;R0 = UNIBUS ADDRESS 

TSTQUE.R1 ;R1 = POINTER TO DEVICE 

#20.$TESTN ;;SET TEST NUMBER IN APT MAIL BOX 


.•SETUP REGISTER OUTPUT BUFFER FOR SUBROUTINES 


014340 

023136 


fO.RMOAO 

#5,RMDC0 

#FMT16,RM0F0 

fBUFFER.RMBAO 

#-2.R MWCO 

fWHIGO.RMCSIO 

PC.ENBSCH 


PC.SCTCMP 

20i 


SECTOR 0. TRACK 0 
CYL 5 

16 BIT MODE 
BUFFER ADDRESS 
WORD COUNT 

WRITE HEAD AND DATA COMMAND 


EXECUTE DATA COMMAND TO POINT WHERE 
SEARCH IS ENABLED USING SUBROUTINE. 
BRANCH TO 1WS IF NO ERROR 


.‘FORCE SECTOR COMPARE USING SUBROUTINE 
.’BRANCH TO 20$ IF NO ERROR 


; WRITE PROM OF DATA TIMING SEQUENCER SHOULD NOW BE ENABLED 
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SEO 0075 


1042 

1043 

1044 013766 

1045 013766 

1046 013774 

1047 014002 

1048 014004 

1049 014010 

1050 014014 

1051 014022 

1052 014024 

1053 


016037 000040 001142 
042737 177776 001142 
001011 

005037 001140 
010037 001136 
062737 000040 001136 
104042 
000545 


1055 




•GATE 

STAYS 

1056 014026 




iO$: 


1057 014026 

012702 

000016 



MOV 

1058 014032 




40$: 


1059 014032 

016037 

000040 

001142 


MOV 

1060 014040 

032737 

000001 

001142 


BIT 

1061 014046 

001014 




BNE 

1062 014050 

005302 




DEC 

1063 014052 

001367 




BNE 

1064 014054 

010037 

001136 



MOV 

1065 014060 

062737 

000040 

001136 


ADD 

1066 014066 

012737 

000001 

001140 


MOV 

1067 014074 

104042 




EMT 

1068 014076 

000520 




BR 

1069 014100 




50$: 


1070 






1071 014100 




60$: 


1072 014100 

012760 

055401 

000024 


MOV 

1073 014106 

012760 

051401 

000024 


MOV 

1074 014114 

016003 

000024 



MOV 

1075 014120 

032703 

000040 



BIT 

1076 014124 

001765 




BEQ 


.•FIRST, VERIFY THAT WRITE GATE IS ON. INDICATING THAT 

: SEC TOR COMPARE SET 

20S: 

MOV RMMR2(R0>,$BDDAT .‘STORE RMMR2 AT $8DDAT 

BIC #*C8B00.$8DDAT ;BUS BIT 0 IS WRITE GATE 

BNE 30$ 

CLR JGDDAT 

MOV R0,$8DADR 

ADD #RFWR2,$BDADR 

EMT 42 

BR 160$ ;FORMAT-CS FAILURE 

.-STEP THE DATA TIMING SEQUENCER TO LOCATION 16 AND VERIFY WRITE 


#14., R2 

RMNR2(R0> ,$BDDAT 

#8800,$6DDAT 

50$ 

R2 

40$ 

R0,$8DADR 

#RMNR2.$8DADR 

#BBOO,$GDDAT 


;MAXMUM NUMBER OF CLOCK 
;STORE RMMR2 AT SBDDAT 
‘BRANCH IF WRITE GATE ON 


.‘FORMAT - CS FAILURE 


1077 

1078 

1079 014126 

1080 014130 

1081 
1082 

1083 014132 

1084 014132 

1085 014140 

1086 014146 

1087 014152 

1088 014156 

1089 014160 

1090 

1091 

1092 

1093 

1094 014162 

1095 014162 

1096 014166 

1097 014170 
014170 


005302 

001414 


012760 

012760 

016003 

032703 

001725 

000764 


055401 000024 
051401 000024 
000024 
000040 


012702 000020 
005003 

016004 000024 


MOV #MR1AAA!MCIK.RMMR1CR0> .‘LOAD RMMR1 

MOV #MR1 AAA .RMMRl (RO) .‘LOAD RFWR1 

MOV RMMRl <R0).R3 .‘STORE RMMRl AT R3 

BIT #WC,R3 

BEQ 60S 

;PROM STROBE CAME ON-DECREMENT PROM STROBE COUNT 
DEC R2 

BEQ 80$ 

•WAIT FOR PROM STROBE TO GO OFF. THEN REPEAT LOOP 
? 0 $: 

MOV #MR1AAA!NCLK,RMMR1(R0) .‘LOAD RMMRl 

MOV #MR1 AAA. RMMRl (RO) ;LOAD RMMRl 

MOV RMMRHR0).R3 .‘STORE RMMRl AT R3 

BIT #WC,R3 

BEQ 40$ 

BR 70$ 

.-VERIFY HEADER SYNC GENERATION 

.‘WRITE DATA BIT IS INVERTED AT MAINTENANCE REGISTER 

;FIRST, COUNT NUMBER OF ZERO BITS UNTIL FIRST ONE BIT 

60S: 

MOV #16., R2 ;MAX TIMES THRU LOOP 

CLR R3 

90$: 

MOV RMMRl (R0),R4 .‘STORE RMMRl AT R4 


L 6 
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1098 

014174 

032704 

000010 



BIT 

#MWD.R4 


1099 

014200 

001414 




BEQ 

110$ 

.'JUMP OUT OF LOOP WITH FIRST 1 

1100 

014202 

005203 




INC 

R3 

.‘INCREMENT ZERO COUNT 

1101 

014204 

005302 




DEC 

R2 

.DECREMENT MAX LOOP COUNT 

1102 

014206 

001002 




SNE 

100$ 


1103 

014210 

104043 




EMT 

43 


1104 

014212 

000452 




BR 

160$ 

.'HEADER SYNC .CANT GET FIRST 1 

1105 

014214 




100$: 




1106 

014214 

012760 

055401 

000024 


MOV 

#MR1AAA!MCLK.RMMR1 (RO) .'LOAD RMMR1 

1107 

014222 

012760 

051401 

000024 


MOV 

#MR1AAA.RMMR1 (RO) .‘LOAD RMMR1 

1108 

014230 

000757 




BR 

90$ 


1109 









1110 





.'MAKE SURE THERE WERE AT LEAST 

8 ZERO BITS IN HEADER SYNC 

1111 

014232 




110$: 




1112 

014232 

020327 

000010 



CMP 

R3.#8. 


1113 

014236 

103002 




BHIS 

126 $ 


1114 

014240 

104043 




EMT 

43 


1115 

014242 

000436 




BR 

160$ 

.'HEADER SYNC 

1116 









1117 





; SAMPLE 

AND 

STORE THE REST OF 

THE HEADER SYNC 

1118 

014244 




1 20$: 




1119 

014244 

012702 

000010 



MOV 

#8. ,R2 

.'NUMBER OF SAMPLES 

1120 

014250 

005003 




CLR 

R3 

; HEADER SYNC 

1121 

014252 




130$: 




1122 

014252 

016004 

000024 



MOV 

RMMR1 (RO) ,R4 

.'STORE RMMR1 AT R4 

1123 

014256 

006303 




ASL 

R3 


1124 

014260 

032704 

000010 



BIT 

#MWD.R4 

.•SHIFT SAMPLE. IF SYNC BIT IS 1 

1125 

014264 

001002 




BNE 

140$ 

.'THEN SET SAMPLE INPUT 

1126 

014266 

052703 

000001 



BIS 

#8IT0.R3 


1127 

014272 

005302 



140$: 

DEC 

R2 


1128 

014274 

001407 




BEO 

150$ 


1129 

014276 

012760 

055401 

000024 


MOV 

#MR1AAA!MCLK.R^$1R1 (RO) .'LOAD RMMR1 

1130 

014304 

012760 

051401 

000024 


MOV 

fMRIAAA.RHMRi (RO) .'LOAD RMMR1 

1131 

014312 

000757 




BR 

130$ 

;D0 LOOP TIL R2=0 

1132 









1133 





.•VERIFY 

THE 

SYNC BIT STREAM IS 0000000010011000 

1134 

014314 




150$: 




1135 

014314 

012737 

000230 

001140 


MOV 

#000230. $GDDAT 


1136 

014322 

010337 

001142 



MOV 

R3.SBDDAT 


1137 

014326 

023737 

001140 

001142 


CMP 

$GDDAT.$BDDAT 


1138 

014334 

001401 




BEO 

160$ 


1139 

014336 

104044 




EMT 

44 


1140 

014340 




160$: 




1141 









1142 





;;***»* 









.'•TEST 

21 

WRITE HEADER TEST 


014340 




TST21 : 





014340 

000004 




SCOPE 

.SCOPE CALL 


014342 

000240 




NOP 




014344 

012706 

001100 



MOV 

#STACK,SP 

.‘LOAD THE STACK POINTER 


014350 

013700 

001276 



MOV 

$8ASE,R0 

;R0 = UNIBUS ADDRESS 


014354 

013701 

001466 



MOV 

TS7QUE.R1 

;R1 = POINTER TO DEVICE 


014360 

012737 

000021 

001226 


MOV 

#21.$TESTN 

; .'SET TEST NUMBER IN APT MAIL BOX 

1143 










SEQ 0076 


.'SETUP THE REGISTER OUTPUT BUFFER FOR SUBROUTINES 


M 6 


SEQ 0077 


h*^8o PT2 MACHO V04.00 1 4- JAN-82 16:41:16 PAGE 13-24 

WRITE HEADER TEST 


1145 014366 

1146 014374 

1147 014402 

1148 014410 

1149 014416 

1150 014422 

1151 

1152 014426 

1153 014432 

1154 

1155 014436 

1156 014442 

1157 014446 

1158 014454 

1159 

1160 014462 

014466 

014470 

1161 014472 

1162 014476 

1163 014476 
014502 
014504 

1164 014506 

1165 

1166 

1167 014512 

1168 014512 

1169 014516 

1170 

1171 

1172 014522 

1173 014522 

1174 014530 

1175 014536 

1176 014542 

1177 014546 

1178 014550 

1179 014552 

1180 014554 

1181 
1182 

1183 014560 

1184 014560 

1185 014564 

1186 014566 

1187 014570 

1188 

1189 

1190 014572 

1191 014600 

1192 014604 

1193 014610 

1194 014616 

1195 014620 


012737 

013737 

112737 

012737 

012702 

010237 

012712 

052722 

013712 

112712 

012737 

012737 


001060 

001334 

000036 

010000 

054420 

001416 

150000 

001060 

001334 

000036 

177776 

000063 


004737 022264 


000403 

104000 

000137 

004737 

000403 

104000 

000137 


012702 

012704 


012760 

012760 

016003 

032703 

001004 

005304 

001363 

000137 


032703 

001062 

005302 

001015 


012737 

005037 

010037 

062737 

104045 

000137 


001446 

001420 

001420 

001444 


001414 

001412 


MOV 

M0V8 

MOV 

MOV 


015274 

023136 


015274 


000017 

000041 


055401 000024 
051401 000024 
000024 
000040 


015274 


000200 


000200 001140 

001142 

001136 

000024 001136 
015274 


#560. .RMDCO 
LSTRK.RMDAO 
#30. .RMDAO 
#FMT '6.RM0F0 
#8UFFER,R2 
R2.RMBA0 

#150000, (R2) 
#560 .,<fo)* 

LSTRK.IR2) 
#30.. (R2) 
#-2.RMWC0 
#WH:G0,RMCS10 

PC.ENBSCH 


PC.SCTCMP 

20 * 


LAST CYLINDER 

SET LAST TRACK AND 

LAST SECTOR 

IN 16 BIT FORMAT 

BUFFER ADDRESS 

BUFFER STARTS 

STORE FIRST HEADER WORD 

SET MF/UF BITS GOOD. 16 BIT FORMAT AND 

LAST CYLINDER 

STORE SECOND HEADER WORD 

SET LAST TRACK ADDRESS AND 

SECTOR ADDRESS. 

2 WORDS (2'S COMP) 

WRITE HEADER COMMAND 

EXECUTE DATA COMMAND TO POINT WHERE 
SEARCH IS ENABLED USING SUBROUTINE. 
BRANCH TO 1 0S IF NO ERROR 


.’FORCE SECTOR COMPARE USING SUBROUTINE 
.•BRANCH TO 201 IF NO ERROR 


•STEP THE DATA TIMING SEQUENCER UNTIL "HEADER AREA" COMES ON 

0$ ' MOV #15. .R2 .‘ALLOW 15 PROM ST0R8ES 

30$: MOV #33.. R4 .-ALLOW 33 BIT CLOCK' PER PROM STROBE 


.’PULSE BIT CLOCK UNTIL PROM STROBE IS ON 
40$: . 

MOV #MR1AAA!MCLK.RMMR1(R0) 

MOV #HR1AAA,RMMR1 CRO) 


nvi i»nn ifwiinmn f 

MOV RMMR1 (Ru) ,R3 

BIT IWC.R3 

BNE 50$ 

DEC R4 

BNE 40$ 

JMP 160$ 

•SEE IF HEADER AREA CAME ON 
$ 0 $: 

BIT #PH A.R3 

BNE 80S 

DEC R2 

BNE 60$ 

.-ERROR-HEADER AREA NEVER CAME ON 


.-LOAD RMMR1 
.•LOAD RMMR1 


.-STORE RHMR1 AT R3 


.‘COUNT EXHAUSTED 


#PHA,$GDDAT .‘SETUP ERROR MESSAGE 


;SKIP REST OF TEST 


RO.SBDADR 
#RMMR1 .SBDADR 
45 

160$ 
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N 6 


SEQ 0078 


1197 

1198 014624 

1199 014624 

1200 014632 

1201 014640 

1202 014644 

1203 014650 

1204 014652 

1205 014654 

1206 014656 

1207 

1208 

1209 014662 

1210 014662 

1211 014670 

1212 014676 

1213 014704 

1214 014706 

1215 014712 

1216 014720 

1217 014726 

1218 014730 

1219 

1220 
1221 

1222 014732 

1223 014732 

1224 014736 
014736 

1225 014744 

1226 014752 

1227 014754 

1228 

1229 

1230 014756 

1231 014762 

1232 014766 

1233 014772 

1234 014776 

1235 015000 

1236 015000 

1237 015004 

1238 015006 

1239 015012 

1240 015014 

1241 015020 
015020 

1242 015026 

1243 015034 

1244 015036 

1245 015040 

1246 015042 

1247 015046 

1248 

1249 

1250 015050 

1251 015054 


012760 

012760 

016003 

032703 

001404 

005304 

001363 

000137 


016037 

042737 

022737 

001704 

010037 

062737 

012737 

104042 

000561 


055401 

051401 

000024 

000040 


015274 


000040 

176000 

000001 

001 1 36 
000040 
000001 


012702 000005 


012760 

012760 

005302 

001370 


005037 

005037 

012702 

012703 

005004 

016005 

006304 

032705 

001002 

052704 

012760 

012760 

005303 

001360 

010422 

022702 

101415 


042705 

001346 


000024 

000024 


;UAIT FOR PROM STROBE TO GO OFF 
60$: 

MOV #MR1AAA!MCLK.RMMR1 (RO) ;LOAD RMMR1 

MOV #MR1AAA.RMMR1<R0> .'LOAD RMMR1 

MOV RMMR1(r6).R3 ;STORF RMMR1 AT R3 

BIT #UC.R3 

BEQ 70$ 

DEC R4 

BNE 60$ 

JMP 160$ .'COUNT EXHAUSTED 


001142 

001142 

001142 


001136 

001140 


VERIFY THE TAG BUS ONCE EVERY PROM STROBE 

.'STORE RMMR2 AT $6DDAT 


; vci 

ft)$ 


055401 000024 
051401 000024 


001174 

001176 

001174 

000020 


000024 

000010 

000001 

055401 000024 
051401 000024 

001200 

177577 


MOV RMMR2<R0),$8DDAT 
BIC #*C1777.$BDDAT 

CMP #8B00.$BDDAT 

BEQ 30$ 

MOV R0.$8DADR 

ADD #RMMR2,$8DADR 

MOV #8800.SGDDAT 

EMT 42 

BR 160$ 


.'HEADER AREA IS NOW ON CAN START SAMPLE 
:DATA AFTER 5 MORE BIT CLOCKS 

bO$: 

MOV #5.R2 

81$: 

MOV «MR1AAA!MCLK.RMMR1(R0) 
MOV #MR1 AAA.RNMR 1 (RO) 

DEC R2 

BNE 81$ 

.SAMPLE AND STORE THE TWO HEADER WORDS 


WRITE GATE SHOULD BE ON 
ALL ELSE OFF 


.'LOAD RMMR1 
.'LOAD RMMR1 


CLR 

CLR 

MOV 

MOV 

CLR 

MOV 

ASL 

BIT 

BNE 

BIS 

MOV 

MOV 

DEC 

BNE 

MOV 

CMP 

BLOS 


.'HEADER AREA 
BIC 
BNE 


90$: 

100 $: 


110 $: 


$TMP0 
$TMP1 
#$TMP0.R2 
#16.. R3 
R4 


n (RO) ,R5 

Jmwd.rs 
iio* a , 

#8IT0,R4 


;R2 NUMBER OF WORDS/ADDRESS 
.NUMBER OF BITS 
.'WORD STORAGE 


STORE RMMR1 AT R5 
SHIFT WORD SAMPLE 
SET BIT 0 IF WRITE BIT ON 


#MR1AAA!MCLK.RMMR1 (RO) .'LOAD RMMR1 
#MR1AAA.RRHR1(R0) .'LOAD RMMR1 

R3 
100 $ 

R4.(R2)+ .'STORE WORD SAMPLE 

#$TMP0+4.R2 .'DONE ? 

120* .'YES 

SHOULD STILL BE ON FOR SECOND HEADER WORD 
#*C<PHA>,R5 

90S .'BRANCH IF ON 
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B 7 


SEO 0079 


1252 015056 

1253 015062 

1254 015070 

1255 015076 

1256 015100 

1257 

1258 

1259 015102 

1260 015102 

1261 

1262 015104 
015104 

1263 015110 

1264 015114 

1265 015116 

1266 015124 

1267 015132 

1268 015134 

1269 015140 

1270 015142 

1271 015146 

1272 015154 

1273 015162 

1274 015166 

1275 015170 

1276 

1277 

1278 015172 

1279 015172 

1280 015176 

1281 015200 
015200 

1282 015204 

1283 015206 

1284 015212 

1285 015214 

1286 015220 
015220 

1287 015226 

1288 015234 

1289 015236 

1290 015240 

1291 

1292 

1293 

1294 

1295 015242 

1296 015250 

1297 015252 

1298 015260 

1299 015262 

1300 015270 

1301 015272 

1302 015272 

1303 015274 

1304 

1305 


010037 

062737 

012737 

104045 

C00475 


005003 


016005 
042705 
001026 
012760 
Cl 2760 
005203 
022703 
101361 
010037 
062737 
012737 
005037 
104046 
000441 


012703 

005004 

016005 

006304 

032705 

001002 

052704 

012760 

012760 

005303 

001360 

010422 


022737 

001010 

022737 

001004 

022737 

001401 

104047 


001136 


MOV 

R0.$8DADR 

000024 

001136 

ADD 

#RMMR1 ,$BDADR 

000200 

001140 

MOV 

#PHA.$GDDAT 


EMT 

45 



BR 

160$ 


;WAIT UNTIL ECRC SETS 
120 $: 

CLR R3 


.’CHECK NUMBER BITS DIFFER BET PHA AND ECRC 


000024 

176777 

055401 000024 

051401 000024 

000020 

001136 

000024 001136 
001000 001140 
001142 


000020 

000024 

000010 

000001 

055401 000024 

051401 000024 


125$: 


MOV 

BIC 

BNE 

MOV 

MOV 

INC 

CMP 

BHI 

MOV 

ADD 

MOV 

CLR 

EMT 

BR 


RMMR1 (RO) ,R5 
#*C<ECRC>,R5 
127$ a wnrvvv 

#MRlAAA!MCLK f RMMR1 (RO) 
#MR1AAA,RMMR1(R9) 


R3 
A16..R3 
125$ 

R0,$8DADR 
#RMMR1 ,$BDADR 
#ECRC.$GDDAT 
$8DDAT 
46 
160$ 


STORE RMMR1 AT R5 
CHECK OUT THE REST BITS 
BRANCH IF ECRC ON 
.’LOAD RMMR1 
.’LOAD RMMR1 


TOTAL NUMBER OF BIT DIFF 
OVER ONE WORD ? 

BRANCH IF NOT 


.’CLEAR THE EXP 


.EXIT 


.’SAMPLE AND STORE CRC WORD 
127$: 


130$: 


140$: 


MOV 

CLR 

MOV 

ASL 

BIT 

BNE 

BIS 

MOV 

MOV 

DEC 

BNE 

MOV 


A16..R3 

R4 

RMMR1 (RO) ,R5 
R4 

#MWD,R5 

140$ 

#8IT0,R4 


STORE RNNR1 AT R5 
SHIFT WORD SAMPLE 
SET BIT 0 IF WRITE BIT ON 


#MR1AAA'MCLK.RMMR1(R0) 
#MR1AAA,RMMR i (RO) 

R3 

130$ 

R4.(R2>* 


.-LOAD RMMR1 
.’LOAD RMMR1 


006113 001174 
074260 001176 
163072 001200 


.-VERIFY 3 HEADER WORDS 
.-NOTE THAT DATA WAS STORED IN THE REVERSE 
.’ORDER FROM WHICH IT WAS WRITTEN 


150$: 

160$: 


CMP #0Q6113,$TMP0 

BNE 150$ 

CMP #074260,$THP1 

BNE 150$ 

CMP #163072, $TMP2 

8EQ 160$ 

EMT 47 


CORRECT FIRST HDR WRD ? 
NO ! ! 

CORRECT SECOND HDR WRD ? 
NO 1 * 

CORRECT HEADER CRC ? 

YES ! ! 


.-END OF SUB TEST 



c ? 
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015274 

015274 

015276 

015300 

015304 

015310 

015314 

1306 

1307 

1308 015322 

1309 015330 

1310 015336 

1311 015344 

1312 015352 

1313 015360 

1314 015366 

1315 

1316 015374 

015400 

015402 

1317 015404 

1318 015410 

1319 015410 
015414 
015416 

1320 015420 

1321 

1322 

1323 015424 

1324 015424 

1325 015430 

1326 015436 

1327 015442 

1328 

1329 

1330 015446 

1331 015446 

1332 015454 

1333 015462 

1334 015 


000004 

000240 

012706 

013700 

013701 

012737 


012737 

013737 

112737 

012737 

012737 

012737 

012737 


; *TEST 22 


HEADER COMPARE TEST 


tST22: 


001100 

001276 

001466 

000022 


001060 

001334 

000036 

054420 

177776 

010000 

000073 


001226 


001446 

001420 

001420 

001416 

001414 

001444 

001412 


SCOPE 

NOP 

MOV 

MOV 

MOV 

MOV 


.SCOPE CALL 

#STACK,SP .-LOAD THE STACK POINTER 

S8ASE.R0 ;R0 = UNI BUS ADDRESS 

TSTQuMl ;R1 = POINTER TO DEVICE 

#22,$t£sTN ; ; SE1 TEST NUMBER IN APT MAIL BOX 


.-LOAD REGISTER OUTPUT BUFFER FOR READ HEADER COMMAND 


004737 022264 


000403 

104000 

000137 

004737 

000403 

104000 

000137 


010037 

062737 

012702 

012704 


016524 

023136 

016524 


001136 

000040 

000004 

000021 


10 $: 


MOV 

MOV 

MOVB 

MOV 

MOV 

MOV 

MOV 

JSR 

BR 

EMT 

JMP 

JSR 

BR 

EMT 

JMP 


#560. .RMDCQ 
LSTRK.RMDAO 
#30. .RMDAO 
IBUFFER.RMBAO 
#-2.RMWC0 
#FMT16,RM0F0 
#RH!G0,RMCS10 

PC.ENBSCH 

10 $ 

230$ 

PC-SCTCMP 

20i 

230$ 


LAST CYLINDER 
SET LAST TRACK AND 
LAST SECTOR 
DATA ADDRESS 
2 WORDS (2*S COMP) 

16 BIT MODE 

READ HEADER AND DATA FUN 

EXECUTE DATA COMMAND TO POINT WHERE 
SEARCH IS ENABLED USING SUBROUTINE. 
BRANCH TO 10$ IF NO ERROR 

SKIP REST OF TEST IF ERROR 

FORCE SECTOR COMPARE USING SUBROUTINE 
BRANCH TO 20$ IF NO ERROR 


001136 


012760 055401 000024 

012760 051401 000024 
016003 000024 
CZVTMAO VT61 ACCPT TST 
ZVTN AO 

ZVTO AO 


•READ GATE SHOULD BE OFF FOR 3 PROM STROBES 

m ' MOV RO.$BDADR .-SETUP ERROR MESSAGE 

ADD #RNMR2.$8DADR „ 

MOV #4.R2 .‘RZ^NUMBER OF PROM STROBES 

30$: MOV #17. .R4 ;MAX BIT CLOCKS 

.•CLOCK BIT CLOCK UNTIL PROM STROBE COMES ON 
40$: 

MOV #NR1AAA!MCLK.RMMR1 (RO) ;LOAD RMMR1 

MOV #MR1AAA.RMMR1 (RO) .LOAD RNMR1 

MOV RMMR1(R6).R3 .STORE RMMR1 AT R3 

CZVTMAO VT105 ACCPT TST 
CZVTOAO M7142 ACCPT TST 


** END OF REPORT ** 


jEQ 0080 


